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1.0 ABSTRACT 


CONNECTED TO EITHER AN RHLL OR RH?0 DISK RIVE CONTROLLER © 


qarE pi TE TS THE sunee Oe er AN RJIPO4/S/ pussy eter. 
i a a JOBE UN Daca SUT 
RMI 


5. ROLE BF UNSED Bnei Poa oF 


OT ADS UNLOADED” POS ITION 
No E ) OF THIS DIAGNOST 


Is 
a : hoe rector 
WHEN’ ft 1S USED ON AN NOT wee + vere 


RHO eretc CONTROLE ter DIAGNOST 
UN TO COMPLETION BEFORE THIS DIAGNO 


2.0 REQUIREMENTS 
2.1 EQUIPMENT 


HE _RH70 CONTROLLER 
T RP wala ee tek DRIVES 
a Tag THE 


S 
N CCESSFULLY 
RUN. 


aga Y COMPUTER WITH CONSOLE TELETYPE, AND A _RPO4/S/’6 DISK SYSTEM. 
THE 7$/6_DISK SYSTEM WILL CONSIST OF AN RH11/RH70 CONTROLLER, 
AND DISK CONTROL LOGIC (DCL), THE CABLE FROM THE DCL CAN BE 

Fon KateD ° THE MOLI, BUT IF NOT THAT CABLE MUST BE PROPERLY 


2.2 STORAGE ~ 
THIS PROGRAM REQUIRES 16K WORDS OF MEMORY. 
2.3 PRELIMINARY PROGRAMS 


THIS CAN BE THE FIRST PROGRAM RUN ON AN RJPOY’S’6 SYSTEM put THE 
CONTROLLER DIGENOSTICS MUST BE RUN FIRST IN THE CASE OF A 
RWPO4/S/6 SYSTEM 

3.0 LOADING PROCEDURE 
USE STANDARD PROCEDURE FOR LOADING .ABS TAPES 
4.0 STARTING PROCEDURE 
S PROGRAM IS TO BE RUN USING AN 
R Re i E SET AT THE FRON PAEL, OR IN THE 
OF a SWITCH REGISTER IF _THE OPERATOR SO DESIRES. E 
H 5.1 FOR PTION OF SOFTWARE SWITCH REGISTER 


A DESCRIPT 
OPERATION. 
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ou 4.1 CONTROL SWITCH SETTINGS 

76 SEE SECTION 5.1 

' 4 

28 4.2 STARTING ADDRESS 

¢ 

80 START AT at 00---FOR NORMAL RUN 

gi START AT 04---T0 SELECT NON-DEFAULT ADDRESSES 

Be START AT 10---FOR UNIT SELECTION 

34 200 

8S Beg MUST BE DOWN FOR WORST C ofS PuN WITH THIS 

86 STAR I RPO/5/65 ON HE SYSTEM WILL BE 

58 Testi W L Fart W BE a tf eer ant ABER RUE 

8g HAT 18 ai chia HE best UNIT UNT TOG R RHAS REGISTER 
SPONDS ) HEN 0 THE NEXT HIGHER UNIT NUMBER 


THAT IS POWERED oP. 
200 WITH THE FOLLOWING EXCEPTION: THE 
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3 T FCT. a TICULAR Tee dr (YPTOOL 
3 PROGRAM E uPTOR ER Om ADDRESS 210) "rh" pnbezsson Age 
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0 T WILL NOT CHANGE UNLESS T aoe S AGAIN 
6 RESTARTED OY. F ALL UNIT CHECKED, 
s) HE PROCESSOR NEED NOT BE TOUCHED. THE PRO ILL 
0 AUTOMATICALLY RESTART AT 200 AFTER RECEIVING THE MNEL DEVICE 
Be PAR 
SD ets MUST DOWN FOR WORST CASE ®UN. WITH THIS 

ING ABORESS. THE 


CONDOLE ree WILL ASK FOR_THE UNIT 
NUMBER TO BE TESTED. THEN Y THAT UNIT WILL BE TESTED 
FOR EACH PASS OF THE PROG GRAM 
%.23 PROGRAM AND/OR OPERATOR ACTION 

1. LOAD THE PROGRAM INTO MEMORY. 

2. SET STARTING ADDRESS ON THE SWITCH REGISTER 
3. PRESS “LOAD ADDRESS”. 
4 


- SET “OPERATIONAL SWITCH SETTINGS” (SEE SECTION 5.1) 
» WORST CASE IS ALL SWITCHES DOWN. 


S. PRESS “START”. 
6. FOR THE FIRST PASS EACH TEST WILL BE EXECUTED ONCE 


ON THE ORIVES PRESENT OR DRIVE SELECTED BEFCRE ° 
PASS” IS PRINTED. THE FIRST PASS WILL REGUIRE OPERATOR 
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when Y ie NHI 5. T ERROR TY QUT Hy 
N_TH wre TCH 1s A FURTHER ERROR PRINTOUTS WILL 

RATO REND OF pass. SUCH AS “STOP DRIVE x 
ita ONTIN AT THE “TOTAL R_ OF ERRORS 
ON THIS PASS ON DRI eMOICL BE RUE, THAT I GH 


T 
PRINTOUTS WE Rstctan TED IF THAT PASS’ FOUND 6 ERRORS, 


CH RH70 70 CONT ROE 1 He SELEC 
Hie BaHGeSTYR oP etc obt coh 
BieteSieke “GrmlteReY Oe 
CTED TO AN RH11 C CONTROLLER. 

TCH wus T TIONS 
aH sur SWIT { gSEt a Be. PROGRAM ON SECOND PASS WILL 
NOT REPEAT E fi Mees OUR TIMES BUT WILi DO EACH TEST 
ONCE ONLY. 


OREN, THIS, Se CH 3 Ser, IF THE PROGRAM FINDS AN ERROR 


Fel eeR bee ee NRE BSE en fh 
SIH Ds cP OUTER 
Gesu ceed 
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ee iS bres Ie iorebae eet 


Te ENCOUNTERED PRINTOUT HILL TAK 


tia Sera eater tt USINE BUeeb ee 


NOTE: ALSO SEE SECTION 8.3 
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341 Bec ae cuts A NG T py THE 

34e bt nee A ie po 

343 xee = THEN. T Sr rcs | ae 

44 ‘ PJ ated SHY TCHES 
H 


IT 
4S oh THAT Is 
ce es ConB ARE t “TEN WHEN A 
Lt t ms oi 
AG 


v fe ) 
343 OR 


350 E THEN AFT 
351 rey: aja 
352 OF THI fel PRINT 

353 ALL WITH SWITCH 11 
3e¢ Seu NT Tes? cor asl Th ie Fe Bay 
356 #53 OF rags ee mil E Su} ANOTHER 
357 EXAMPLE SH CH ING LOW 1s WITH SWITCH CH 

358 IS “E 5 NO gu. ONLY". THAT 15 If SWITCH 
359 8 Is NOT SET SWITCH 6 IS SET THEN ON ECC TESTS (TEST 
360 T st 4 ) INSTE COMPARING ONTENTS OF THE 
361 POSITION ISTER AND PATTE GISTER AFTER EVERY CLOCK, 
362 COMPARES WILL ONLY BE DONE AT THE END OF ALL THE CLOCKS. 
3e3 

365 

366 NOTE: ALSO SEE SECTION 8.3 

368 

369 

370 ITCH 7 - 1 F RC IF IS LOW. 

371 F SWITCH eco abies eae H IS ALSO SET THEN THIS 
372 Sul TCH 3 THe ie su LOOPED ON AS INDICATED 
373 NT toe: ingen Tc F SWITCH 8 3 NOT SET 
ar mH Pee Te Eas Pe sr 
376 ne Mi “are IN TER R SEE IN E OR PRINTOUTS 
ne i a Coto aur ait” © 
379 iS HER ERAGE N BAY, SUBSEQUENT 
ze? baat: Reyne an hee cde EAL ge RES 
382 AcATH Eo ENABLE Be fa OF Heel DATA ERRORS. 

384 SWITCH 6 - ECC TEST-C T Y IF swos IS LOW 
385 IF SHIT H 8 i§ ; hi hap eG B80 . te} THEN THIS 
386 oe A NUnBER To Air Sur Tens nN of INDICATED 
38e I HEN Hon” fe ST 120 THRU 
389 4 T at ite PAR NG EONTEH S OF or Fhe POSITION AND 
390 PAT TERN TERE EVERY cLOck, COMPARES WILL BE DONE 
331 ALL THE CLO 

333 5.2 SUB-ROUTINE ABSTRACTS 


Ser SEE SECTION 9 “SUBROUTINES” 
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7.0 


8.0 
8.1 


8.2. 


al nel wreurs Sonar in THE ERROR ae S_AND OTHER 


stat ve. 4, ar AL 
zl is ERS On A Me aE 15 ALSO. IN A 
Givi Be FR ERM sv At ‘G 7” ED 


THE ERR 


oO 


*FATAL’ ERRORS 


IN ene THAT or at oO a at ef eet ras 


Ie oenat Pe TY "ae, conn WILL cared HE PROGRAM WILL HALT. 


T es Bas D THAT IF THIS THE OPERATOR a 
meee Te ‘ L CONTINUES TO OCCUR 
TI PHT) INSTRUCTION AND REPLACE 
stones WITH 'NOP’S 
bike nTOuTs et ay LOOP CAN BE 
Untied N 
$181 CONT FROM THE HALT 
born nour a ‘ Gt RECOMMENDED. BS L FOLLOWING TESTS WILL 
EXHIBIT GIVE MISLEADING ERROR PRINTOUTS. 
RESTRICTIONS 


i "QRive Por Is A sul 


cD yee ore gears Sa Bente 
f ue Stedent | ig gence 
i ia 


HE DC RMINATES. 
ae ‘y ON AN RH70 CONTROLLER AND 
pie BN AML CONTROLLER. 
a TQ T WHEN USING AN 
Pee Uhre Rutmtn ofan aso.” 
a is ata H“CeTs “SOFTWARE” SWTICH — 
INGS Rou REN” fi MOABIR MODE. 


MISCELLANEOUS 
EXECUTION TIME 


THE FIRST pee aurr THE PROGRAM ad 5 TAKE 30 SECONDS PER 
DRIVE. SUBS NT PASSES WILL TAKE 1 MINUTE. 


STACK POINTER 
THE STACK IS INITIALLY SET TO 1000 


- SEQ 0011 
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OPERATOR SELECTABLE SCOPE LOOPS 


ye eed eed 


iis % Eh meow OF ne Test. 


FI TH es BACK a OPE LOOP IS USED THEN THE POINT 
“PROGRAM CAN GO ARE: - 
a ca IDERATION 


te ite ee Pkg Ae a ae 


OnES ‘& Pieri Oi gee EST UNDER mee Dee a i 1 ust 


are | LOOPING FOR SOME TIME IF THE LOOP SWITCH IS PUT DOWN THEN 
OPERATION Witt CONTINUE . 


PROGRAM REVISION HISTORY 


PROGRAM DESCRIPTION 


HE FOLLOWING SECT LON BE USED aS cy Test AND SUBROUTINES 

IN DETAIL my KAN erie” NDEX_TO THE LISTING. 

UHERE: THAT mo LUA HE LINE R WITHIN THE LISTING 
TEM WILL Ty 


;*#DRIVE MUST BE LOCKED ON PORT A OR PORT B 


;*INTERNAL PROGRAM MACROS BEGIN HERE 
rrrrerirrititititiiititiititiiiri ©! 


: MACROS BEGINNING WITH “.S$” ARE SUPPLIED BY AN 


EXTERNAL Bt SML_SYSTEM MACRO PACKAGE WHICH 
nus sg —E AVAILABLE TO THE SOURCE PROGRAM 
AS macy TIME. 


SEG OOl2 
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RAP CATCHER 


-SBTTL STARTING ADDRESS 


.=200 
Boénoo: Ine Sapege ty {MODIFY ADDRESSES 
JMP SeeecINe ;SELECT DRIVE START 
;##STARTING ADDRESS 200 FOR NORMAL STARTS 
;*##THIS WILL TEST ALL DRIVES ON THE SYSTEM & SINGLE DRIVE AT A TIME 


;*#STARTING ADDRESS 204 FOR PARAMETER MODIFICATION 
i SERESTART AUTOMATICALLY. FROM 200 AFTER PARAMETER MODIFICATION. 


;#*#STARTING ADCORESS 210 WILL TEST ONLY ONE SPECIFIED ORIVE 
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524 

Ses 

526 

+34 ; *I TEM 

S28 001226 057454 EM1 ;WRONG DATA IN READING OR WRITING HARDWARE REGISTER 

529 001230 062727 DH1 :PC 

530 :REG. AD 

531 GOOD 

532 :RECEIVED DATA 

533 001232 067306 DT1 : SERRPC , REGADR, SGDDAT , SBDDAT 

534 O0i2e34 O700e4 OF 1 :0,0,0,0,6 

535 

536 

537 

528 

539 

540 ; #ITEM2 

But 001236 057537 EM2 ;ERROR ON DATA COMMAND 

543 .001240 O66064 DH33 ;PC 

S44 :PC OF JSR 

Sus : TEST NO 

546 ; WORD NO 

547 :GOOD DATA ° 

54a ;CONTENTS OF RHCS1 

549 :CONTENTS OF RHDS1 

550 :CONTENTS OF RHERI ; 

S51 oo1e4e 666 D133 : SERRPC, PCISR, $TSTNM, ERWORD, $GDDAT,CS1,051,ERi 

bbe 001244 070174 DF 23 :0,0,0,1,0,0,0,0 

554 

555 ; #I TEMS 

B56 001246 057537 EM2 ;ERROR ON DATA COMMAND 

Ee 001250 06564! DH32 ;PC 

559 :PC OF JSR 

560 :TEST NO 

561 :WORD NO 

562 :GOOD DATA 

563 :BAD DATA 

564 :CONTENTS OF RHCS1 

565 :CONTENTS OF RHDS1 

bbb ! ‘CONTENTS OF RHERI 

68 OCl252 oe7E4e D132 ; SERRPC, PCJSR, STSTNM, ERWORD, $GODAT, SBODAT,.CS1.0S51,ER1 

BES OC1e54 O701e3 OF 32 :0,0,0,1,0,5,0,0.0, 

é71 

c7e ; #1 TEMY 

573 001256 057527 EM2 ;ERROR ON DATA COMMAND 

E75 001260 O&543E DH31 :PC 

S7E : TEST NO 

577 :WORD NO. 

E72 :GOOD DATA 


579 ;BAD DATA 


my 
Ap Ab Ay Ay de Ay do A robe 


DR O.Dw seu 
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a et a a 
BONER E 


tet: 


TU 0 
EWC. YOUN wee e 2 


ilulele eee oe ooo 
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Wad 
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E02 


Reo fe 


O,RPO4/S/6 DSKLS_CTRLRI MACYI1 30( 1046) O8-NOV-77 08:54 PAGE 15 
Pil 08-NOV-77 08:30 ERROR POINTER TABLE _ $€G 0017 
sCONTENTS OF RHCS1 
:CONTENTS OF RHDS1 
:CONTENTS OF RHER1 
001262 067620 DT31 ; SERRPC, STSTNM, ERWORD, SGDDAT, SBODAT ,CS1,0S1, ERI 
001264 070153 OF 31 :0,0,1,0,0,0,0,0, 
;# ITEMS 
oo0000 0 ; 
001270 oo0000 0 ; 
001272 067620 DT31 ! SERRPC, STSTNM, ERWORD, SGDDAT , SBODAT,CS1,051. ERI 
001274 070153 DF31 :0,0,1,0,0,0,0,0, 
; * I TEME 
001276 oS7S&6 EM ;ERROR ON WRITE HEADER AND DATA 
001300 065641 DH32 PC 
:PC OF JSR 
3 TEST 
; WORD 
:GOOD DATA 
; BAD pA 
:CONTENTS OF RHCS1 
:CONTENTS OF RHOS1 
:CONTENTS OF RHER1 
001302 O&7642 D132 ; SERRPC, PCJSR, STSTNM, ERWORD, SGDDAT , SBDDAT,CS1.0S1,ER1 
001304 O701E3 DF 32 ;0,0,0,1,0,0,0,0, 
: #1 TEM7 
001306 os7S566 EMG ;ERROR ON WRITE HEADER AND DATA 
001319 963052 DHe :PC 
: TEST NO 
5 WO NO. 
seo oee" 
001312 067334 0T3 : SERRPC, STSTNM, ERWORD, S$GODAT , SBDDAT 
961314 O70035 OF3 :0,0,1,0,0, 
;*ITEMLO 
001316 900000 0 ; 
00132 900000 0 ; 
001322 067334 OT2 : SERRPC, STSTNM, ERWORD, SGDODAT , SBEDDAT 
001324 070035 OF3 :0,0,1,0,0, 
; #ITEML1 
001226 oc7625 EM11 ; CONTROLLER OR DRIVE STATUS 
601330 &317E DH11 


‘TEST NO 


0, RPON/S 6 
Pll 


001362 
001364 


001366 
001370 


& DOSKLS cree 
08-NOV-77 


000000 
000000 
067306 

070024 


0S7660 
063355 


067370 
070051 


0S7700 
063555 


0&7412 
070061 


057751 
O06 3606 


MACY11 30(1046) 


; eI TEML2 


EM11 


;#ITEM13 


7 #1 TEM1LY 
EM14 


DH14 


7 *#ITEMLS 


; #1 TEM1E 


-NOV-77_ 08:S4 PAGE 
ERROR Porn ER TABLE 


16 
;FAIL ING REG. ADDR 

:CONTENTS OF RHCS1 

:CONTENTS OF RHCS2 

:CONTENTS OF RHOSI 

:CONTENTS OF RHERI 

: SERRPC, STSTNM, SBDADR,CS1,CS2,0S1,ER1 
:0,0,0,0,0,0 


;WRONG DATA FROM SILO 


see 
REG.ADOR 
; GOOD bara. 
RECEIVED DATA 
| SERRC REGADR, , SGDDAT , SBDDAT 


; SERRPC, TSTNM, REGADR , SGDDAT , SSODAT 
:0,0,0,0,0 


_—— FAILEO 


; FAILING REG. 
NG REG. 


page 


DAT,CS1,CS2,051,ER} 


5 BEECIE IED REG. NON EXISTANT SO ABORT 
; PROGRAM 


PC 
:ADOR. OF REG 
: SERRPC, , TEMP 1 


Pc LOOP FAILED 


T PC 
BIT WANTED 

ADR 
RES: CONT. 


SES 9018 


CERI 
C2RJG 


“ 
wr f 


DVFNL 


SNSINNNNSININSISISI ISIS INI OOOO OO 
OWONOWN £ Wl OWO NOW £itM-OwW 


“INI 
lati 


0, RPO4/S “6 
Pll 


061402 
001404 


001422 
001424 


001426 
001430 


001432 
001434 


001436 


001440 


001442 
001444 


Ase og 


08-NOV- 


067422 
070064 


0S777e2 
063751 


MACY11 30(1046) 


OT16 
DF 16 


;*ITEM17 


; *I TEM2O 
EM2eC 


DHeO 


OTed 
DF 20 


;*ITEM21 


; #ITEM22 


EM2e 


OB8-NOV-77_ 08:54 PAGE 17 
ERROR POINTER TABLE 


; SERRPC, STMP3, STMP1, STMPO, SBODAT 
:0,0,0,0 


;WRITE CHECK FAILING 


: 2 
: SERRPC, STSTNM, $BA, DB, WC,CS1,CS2 
:0,0,0,0,0,0,0 


;REGISTER FAILING 


D> 
r 4 
A555 
ANMW 

=] 

n 

38 


Si 
RRPC, TSTNM ER1,ER2,ER2.AS,DS1 
0,0,6,0,0,0 


; INTERRUPT FAILING 
; TN 
ONT NTS OF RHCS1 
Ba OF RHAS 
ONT 


OF RHDS1 
RRPC, TSTNM,CS1,AS,DS1 
0,0,0,0 


fen 
L_NOT GIVE NED 
ISSMATCH 


C 
; TEST NO 

RHAS UNIT (RHER1 BITS SE 
'RH HCS2 UNIT (*NED’ BIT TE 
i SERRPC, TSTNM 


Taw yee OSKLS CTRLR1 


C2RJ O08-NOV-77 08:30 


GB.P1l 


001462 
001464 


001466 


001470 


001472 
001474 


OCi47E 
001500 


001S0€ 
001510 


7Se22 
Bois 
0S7625 
064725 


057454 
065130 


MACY11 30(1046) O8-NOV-77 08:S4 PAGE 18 


ERROR POINTER TABLE 


; ¥ITEM23 


OT24 
OF e4 


;#ITEM 25 
EmMes 


DHe4 


prey 

DFe4 

; SI TEM26 
EM11 


DH26 


; #ITEM27 
EM1 


DHe7 


LONGER USED DUE TO SPECIAL *NED’ 
ST TABLE TYPE OUT ROUTINE 


LOOK AHEAD ae te AT THE 
BEGINNING OF A SECTOR IS IN 


’ RHDST 
+ BAD RHLA 


Seon hy 


: SECTOR Crock 
: SERRPC, OST, SBDDAT , STMP1, STMP2, STMFS 
'0.0,0,6,0 ° 


;LOOK_ AHEAD REGISTER IS 
; IN ERROR 


HSERRPC Bs, S800, STMP1,STMP2,STMPS 


;CONTROLLER OR DRIVE STATUS 
sPC 


N 
S CONTENTS OF RHER1 
3 SERREC PE TEM, SEOROR, C51, C8, 081,ER? 


;ERROR IN READING OR WRITING HARDWARE REGISTER 


UMBER 
ING DEGISTER 
DATA 


SEG 9020 


CZRIGBO, RPOYS “6 
C2RIGB.PL1 


OWOMDOWODDDOOMOWOMOW 
[Ut & 0 bb 
—-OOONMUILWilu-OW 


901S2e 
001524 


00iS26 


001530 


001532 
001534 


OO1S3€ 


001546 


o01s4e 
OO1S44 


& OSKLS_CTRLRI 
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065273 


067710 
070204 


D&1140 


O&E4S2 


067730 
070213 
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ERROR POINTER TABLE 


OTe? 
DF e7 


; #1 TEM30 
EM30 
DH30 


DT30 
DF 30 


; #ITEM31 
EM31 


DH34 


DT34 
DF 34 


; # I TEM32 
E 


DH3S 


D735 
DOF 35 


19 
SEG 0021 


;RECEIVED DATA 


; SERRPC ,PCISR, TSTNM, REGADR, SGODAT , SECDAT 
:0,0,0,0,0,0 


; CURRENT CYLINDER DOES NOT REFLECT DESIRED CYLINOER REG. 


C OF JSR 
:REGISTER ADDRESS 
;GOOD_ DAT 
;BAD DATA 


; SERRPC ,PCISR, REGADR, SGDDAT , SBDDAT 
:0,0,0,0,0 


;ECC GENERATED N 
IN 


S 
;EVERY WORD H 


IS_ INCORRECT 
THIS SECTOR IS GIVEN IN “DATA USED” 


PC 
; TEST NUMBER 


|SERRPC, TSTNM, GECC1, GECC2, ECC , WECC2, DISK 
;0,0,0,0,0,0,0 


COMMAND AFTER DATA AND ECC HAVE BEEN READ 
ye sianee OR RHER1 IS_IN ERROR 
Vp OER 11 BITS OF PATTERN REGISTER 
HIS SHUOLD MATCH LOWER 11 BITS OF ECCl 
NUMBER 
33 


T 
8) 
TERN RN “RecIsTER 
Ri 


; SERRPC, TSTNM, GECC1, GECC2,EC2, ER} 
;0,0,0,0,0,0 
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ZRIGB.P11  —O8-NOV-77 08:30 ERROR POINTER TABLE SEG O0z2 
860 
861 ; #I TEM33 
62 OO1SHE 061427 EM33 ;HIGH COUNT BIT NOT HIGH AFTER 38859 CLOCKS 
863 O015SO O6665S DH36 
864 ie OF JSR 
86S TEST NUMBER 
866 
867 Posi ION_REG. 
seg PATTERN REGISTER 
gro O01ss2 067752 D736 ,SERRPC, PCISA, TSTI, MR, EC1,EC2 
ere oo1ss4 o70z23 DF 36 ;0,0,0,0,0,0 
874 ; #I TEM34 
875 OOISSE 061501 EM34 ;ZERO DETECT BIT NOT HIGH WHEN THE 
gre !32 BIT ECC REGISTER HAS ITS 21 BITS 
rad !0F ZEROS 
872 TERROR PRINTOUT WILL CONTINUE TILL 
87 !2ERO DETECT BIT IS HIGH 
880 OO1S6O oEeEss DH36 : PC 
881 ;PC_OF JSR 
B82 TEST NUMBER 
883 !RHMR 
egy !POSITION REG. 
Bes !PATTERN REGISTER 
gg? O0lste 067752 DT36 ; SERRPC,PCJSR, TSTNM,MR,EC1,EC2 
889 O01Se4 070222 DF 36 ;0,0,0,0,0,0 
891 
892 
893 ; #1 TEM3S 
e94 O01Ste 061574 EM35 ;POSITION REGISTER OR 11 BITS OF 
eg , PATTERN REGISTER INCORRECT 
E9€ {LOWER 11 G11S OF PATTERN REGISTER 
897 ULD MATCH LOWER 11 BITS OF GOOD ECC 
698 BATA ENVELOPE AND N-CODE ZEROS ARE IN DECIMAL 
906 001570 067014 DH37 PC 
961 TEST NUMBER 
902 ges POSITION 
963 ;GO0D POSITION 
364 ;GOOD ECCI 
305 GOOD _EC 
306 ;ECC PAT 
967 :DATA ENVELOPE 
308 !N-CODE ZEROS 
319 001872 967770 0737 ; SERRPC, TSTNM,EC1,POSITI,GECC1, GECC2, EC2, DATENY, 2CODE 
$12 Ocls74 070231 DF 37 ;0,0,0,0,0,0,0,0,0 
$13 
gis 


222 
won 


PITRE 


rapucntuttl 
-Ow0OON 


Sobrante 


001576 
001600 


062073 
0664Se 


067730 
070213 


062204 
063175 


0673506 
070042 
062341 
067232 


070014 
070e4%2 


00000 


00000 
000004 
060016 


RPO4’S-6 OSKLS CTRLR1 
O8-NOV-77 O08 


MACY11 30(i046) 08- 
BAO O POINTE 


; #ITEM36 
EM36 


DH3S 


; #1 TEM37 


; #ITEM4YO 
EmM4O 


DH4O 


OT4O 
DF4O 


NOV-77_ 08:S4 PAGE 21 


OMMAND WITH NON CORRECTABLE 
TED DOCK AND ECH SHOULD BE SET 


é 


'G00D ECC 
GOOD _ECC 


1 
‘ 2 
’ 
IPATYERN, REGISTER. 
;RHER1 
; SERRPC, TSTNM, GECC1, GECCe2,EC2,EC1,ERI1 
;0,0,0,0,0,0,0 


;PGE ERROR 
: TEST NO 

jFAILI REG. ADOR 

+ CON EN S OF RHCS1 

cohrenrs Se Bebe 

i CONTENT oF RHERL 

j SERRPC STSTNM, SBOADR,CS1,CS2,051,ER1 
;0,0,0,0,0,0 

; RHC 010 NOT = 0 AFTER A READ OR 
:WRITE HEADER AND DATA 


NO 
; ONTENTS OF RHWC 
i SERRPC, STNM, SBDDAT 


;#RH11/RH70 REGISTERS 


(RHBA ) 
Y BIT NUMBER 


;#CONTROL AND STATUS REGISTER 2 (RHCS2) 


USIl= 1 s UNIT L 
USe= Fa UNIT LE 
USY4= co ;UNIT SELE 
BAI= 10 :BUS ADORE 


TY INHIBIT (SIT #3) 


SEG 9024 


LOe 
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ERROR POINTER TABLE 


- 
~ rm 
a “4 
= s 
- i 
pad = 
o a 
~~ — 
= cu coal wn 
a a ae Oo w 
> r—- a) a | ’ =" ta 
ui ~— ao ™ os 2s 3 a 
oO ss: =-.™ z -o her i oO 
i =u re ~ eH~ ei “ a 
-- BoB T oH Fe +m Qs @ afm 
w “re s oo -—.- - a~ ~ ~ -“aw 
= | om - +s ~~ «O-s8 ~ io azre 
@ | akan) s~T Tt a 
O@--Mr- uw — 
w ~sss-e-s -- > Be 
¢ g*te > ara aa-mar ~ 
oe w s~ore 
Ulu ea- wa 
-O>-aA~ wae 


RT or 
Boy" 
PRR 
RANS 
RR 
ANT 
TANT 
IT 
HECK 
(B 
T #0) 
TERRUPT ENABLE (BIT #6) 
T #7 
R 
R 
&t 
IL 
PAR 
BNO 


- 


; ILLEGAL FUNCTION (BIT #0) 





NV 
L 
T 
NON 
NON 
UNI 
rs 
DA 
(#00) 
GO_¢ 
N 
ADY ( 
GH 
Be 
DEV 
MAS 
RAN 
PEC 


KOnrorrt 4 r=zra. uw ~ 
ee OH OS CH OS SCHR SH CHES EH SR Ee uJ eR OS OS CS CR CHES CHORES ee OS OS OS CS OS CH OS OS CS CS CH SH OS CRED 8 . 
£ a ~ @ 
p= | lw “4 ~ 
“= - Oo 
r= “ = 5 
- L oe) — cond 
<i a a 
co uJ -” ¥ 
~ lea 4 
> w e 
rom -_ a ~ 
iv) x= 
-Q 72) « - 
Wu = ] ~ oO 
ae | - 7 
oO « 4 
wa w -- a [* 4 
go ge w - Ww 
Bae f gs a8 & 
O000000000 = Lé] O0o0000000 oOo0000 Q00 ww 
urT-wurT urs = bd 3 a-usT tTosT- “usr UT TUT Te 
Z r . 
ar FS - 1] 
-O 5 \ L° 4 on ww " « 
“uu nnnnnnnn ae a Hunn — ucmnrne nnonnunnnn aH 
et Wi Wiz Wwe Ol x oO n ti fags uw Wk Fs “> Sine te Wk 
Ciera x 32 oO ok * OWO—-M>S>OTO * wee assck = —ee- 
QOrOFTTAZZISAZA sere - *- Gee®@aaqdaortuw -- QAao >a jASZrawc +o 


050001 


wrosS Bo00 588s. $88 oso ckess: 88 
ee oe eee 


SR SSSS SG Ty Tiassa sas dcicisiniuijvcc eee ae eee oe ie eee 


eee ee ee ee ee ee ee ee ee en ee et eee ero Pore rere rere bore 
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CZRIGB.P11 O8-NOV-77 08:30 ERROR POINTER TABLE SEG 002s 


1028 ooo0002 ILR= 2 ;ILLEGAL REGISTER (BIT #1) 

1929 000004 RMR= 4 {REGISTER MODIFICATION REFUSED (BIT #2) 
= . 

Re BRR re PUY AGO (BHT ge 

1 wers 4 {WRITE CLOCK FAIL (BIT #5) 

1933 o0208 ECs 200 i 5 # eo rt 97) 
= r 

183s HERC= 4  eDbEE (BIT | Page 

1838 883888 Tee: BBB i PRVAL goreRon «ett #18) 

i ie Ht Tanase tie 

(ns mie Wieser oe 
= sige 

ibis 1 bek= 100000 FRAGA (Bit 15) 

144 ; #MAINTAINABILITY REGISTER mene 

1Bue 000) DHO BIT #0) 

tBu? ieatetees Berks 3 Hit Sheek (BIT #1) 

1048 000005 MINX= 4 NOEX (BIT 2) 

1049 000010 MSTCK= 10 eine any CLOCK (BIT #3) 

1950 090020 MROz= 20 MAINTA oat (eit 

1051 0040 MWR= 40 ah it "ss) 

i0s2 co ENVL= 200 

1063 900400 ER= 400 

1054. 001000 Otsy= 1000 ZERO 6 eyes, (8 ¥. 4) DETECTED (BIT #9) 

1Bes #ATTENTION SUMMARY PSEUDO-REGISTER (RHAS) (#04) 

1068 . 900001 ATO 1 SDEVICE O (BIT #0) 

1089 o00002 ATiz 2 ipevice ¢ (BIT ai) 

1060 AT2= 4 /DEVICE @ (BIT se) 

ies aT3= 49 ;DEV (BIT #3) 

i ATH= ‘DEVICE 4 (BIT #4) 

1063 00004 atSs= 40 {DEVICE § (BIT 96) 

i968 290109 ae: ip Device & (BIT $8) 

{BEE : , ; 

1067 

1068 

ips 

107 :*DESIREG SECTOR/TRACK ADDRESS REGISTER (RHDST) (#1) 

ire tae Birets CALLED By Bit NUMBER 

1074 

ie 

1977 RIVE TYPE REGISTER (RHDT) (#06) 

;* & 

1975 SP ReM BIT is aU Cep BY BIT NUMBER 

tber 

108, 

1083 


gSRyge Pris 


sore 
ft. § ott 
erie 
— 


32 


Db bh =O b= = 8 bb Bb bm bs bP bh bb hb be ee he he hh pe be 


eo se ee ee Be ae be ee ae ae Be ae ee ee ese es fs be ee ee et ee 
w — N Wh -OWONOW £Wte-O jrue 
SORA ZORE SRE Loom Von Lwn-ODS Ven EOS 


“7S Ae DOKL C TELE MACY11 SOU G8e2 08 


-NOV-77_ 08:S4 PAGE 24 


NTER TABLE 


; #LOOK-AHEAD REGISTER (RHLA) (#07) 









; #0) 

3 #1) 

; Be) 

3 #3) 

5 #4) 

} DO (BIT 96) 
: (BIT #7) 
; (BIT #8) 
; (BIT #9) 
; 4 (BIT #10) 
3 #11) 

;7 T #12) 

3T T 813) 

;T T #14) 

: T #15) 


;#RPOS/6 ERROR REGISTER #2 (RHER2) (810) 


NHS= 0 
0200 ‘i= 20000 


;#OFFSET REGISTER (RHOF) (#11) 


UE PTS HCE 
pune ae 


figs TESTOR FAILURE 





SEG 0026 


BO3 


P43 


JGBO, RPO“ /S/6 DSKLS CTRLRI MACYLI 30(1046) -NOV-77. 08:54 PAGE 25 
IGB.P11 O8-NOV-77 08:30 ERROR POINTER TABLE SEG 0027 
1146 = ; OFFSET MICRO INC (BIT #0) 
tia alee Feo: |B i OF ESET £5 Hicko INCHES (BIT sc) 

1142 oooce4 OF100= 4 :OFFSET 100 MICRO INCHES (BIT #2) 

1143 990919 OF 2CO= 19 : OFFSET " INC 2 (BIT #3) 

1244 OF 4O0= [OFFSET 400 MICRO INC (BIT #4) 

1146 000040 OFe00= 40 : OFFSET MICRO INCHES (BIT #5) 

1147 goce OFREV= 200 sOFFSET NEGATIVE (REVERSE) (BIT 87) 
1142 002000 HCI= 2090 tHEADER C ARE INHISIT (BIT #10) 

1149 094000 ECI= 4000 sERROR CORRECTION CODE INHIBIT (BIT #i1) 
1180 910006 FMT2e= 10000 SFORMAT BIT (BIT #i2 

1152 

1153 

1154 

1155 

1156 

1157 ;#DESIRED CYLINDER ADDRESS (RHCA) (#12) 

1138 :#EACH BIT IS CALLED BY BIT NUMBER. 

i16c 

1161 

Lies 

i164 ;#CURRENT CYLINDER ADDRESS (RHCC) (#13) 

tize :#EACH BIT IS CALLED BY BIT NUMBER 

1167 

1168 

1169 

1170 

1171 ;#SERIAL NUMBER REGISTER (RHSN) (#14) 

iive :#EACH IS CALLED BY BIT NUMBER 

1174 

1175 

1176 

1177 

1178 ;#ERROR REGISTER #03 (RHER3) (#15) 

i180 900001 PSU= l ;PACK SPEED UNSAFE (BIT #0) 

1181 090002 VUF = @ : VELOCITY AFE (BIT #1} 

1182 S$00010 UWR= 10 :ANY UNSAFE EXCEPT READ/WRITE (BIT #3) 
1183 0929 PRE= 20 ‘DISK PACK ROTATION ERROR (BIT #4) 
1184 OS0046 ACL= 40 :AC LOW (BIT #5) 

11e¢ 000190 DCL= 100 :DC LOW (BIT #6) 

1166 040000 SkI= 40000 >SEEK INCOMPLETE (BIT #14) 

tig? 100060 OcyL= 100000 :OFF CYLINDER (BIT #15) 

1189 

1190 

1191 

1192 

1193 

1194 ;#ECC POSITION REGISTER (RHEC1) (#16) 

119¢ :#EACH BIT IS CALLED BY BIT NUMBER 


*O 
» 
<3 


o- 


CREESESR BS 


04/S’6 OSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 08:54 PAGE 26 
O8-NOV-77 08:30 ERROR POINTER TABLE 


TTERN REGIS Tee (RHECe ) cei?) 
IT IS CALLED BY BIT NUMBE 


CZRJGBO,RPOY’S’6 DSKLS CTRLR1 


CORIGB.P11 O8-NOV-77 08:30 


1204 

1205 

1206 

1297 

1e0b 

1209 

1210 

lell 

1 is 001626 o00eS4 
lel 

121% 

1215S 

1216 

lel? 

1218 

1219 

354 

ice) 

lee2e 001630 176722 
lee3 O001l63e 176702 
lee4 001634 176704 
leeS OCl1E36 176710 
leeb 

lee? 

1228 

l223 

1230 

le31 

le3e 

1233 

legs OO1E4O 176700 
1532 Dolews izesde 

D0 7 

1535 Boiese 176740 
1238 001650 176732 
1239 Bai bas 176734 
1240 1654 176742 
le4i OOi6S& 176716 
le4e 001660 176724 
1243 OOl66e 176712 
1244 OO1664% 176726 
12e4S OO166E 176730 
l1e46 O01670 176744 
le47 O0ib72 176746 
1e48 001674 176720 
1249S OClE7E 176736 
1250 

1251 

12S2 

teS3 001700 176756 
lets OCl7Ge :7&7Se 
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ERROR POINTER TABLE 


-SBTTL REGISTER ADDRESSES 


;*RPOY VECTOR ADDRESS 


RPVEC: 254 ;RPOY VECTOR ADDRESS 


in el Disk /Q REGI RS LOCATED IN THE RH11 C Len 

; #NOTE: ONTER Ps sof atest bs ROCA TZ ON ats BE DIFFR 

;* TINE IS U SED 

;% tars MROUTINE. STARTS AT AT LOCATION” TAGED “BASECH™ 

RHDB: 176722 + ORD mere SEE NOTE agovee 

RHWC : 176702 SORES EE NOTE AB 

RHBA : 176704 SS SEE NOTE AB 

RHCS2: 176710 fg STATUS e cee VROTE ABOVE 


or ts DISK REGISTERS LOCATED IN T VIC core LOGIC (OCL? 
;#NOTE: THE EeNTENTS OF HESE LOCATION Ong WILL tt Be ei ‘ome 


+ Hire ROUTING STBRTS yeti oh TRgED 


RHCS1: 176700 CONTROL Bt oe SEE NOTE ABOVE 
BERT: Se 08 DesiReD 5: SS SEE NOTE ABOVE 
Bripes: «13820 Preste , 

RHOF: 176732 o T 

RHCA: 176734 ne taeae SEE NOTE ABOVE 
RHER3: 176742 

RHAS: 176716 E ABOVE 

RHMR: 176724 as TY SE re "ABOVE 

RHOSi: 176712 SEE 

RHOT: 176726 Font ABO 

eri, [ite ae 

RHEC2: 176746 CC PA ve NOTE ABOVE 

RHLA: 176720 AD 


$ OOK- NOTE ABOVE 
RHCC: 176736 :CURRENT CYLINDER ADDRESS SEE NOTE ABOVE 
;#ADDITIONAL REGISTERS LOCATED IN THE RH70 CONTROLLER LOGIC 


RHBAE: 176750 ;BUS ADDRESS EXTENSION REGISTER 
RHCS3: 176752 :CONTROL AND STATUS REGISTER #2 


SEG 9029 


tur. 
tats 


OID 


wae 


Baarouran—o 


@ 
-_ 


bs hae ee he he eo Be he ee he he he be fe be bm Bae ae Bn Bw Be ae fe fe Be Be 


tururururorurururururururury 


co 
w 


Be 


O,RPO4“S.6 OSKLS_CTRLRI = MACY11 301104 46) O8-NOV-77 08:54 PAGE 28 
Pil O8-NOV-77 08:30 REGISTER ADDRESSES SEG 0020 
;#THE FOLLOWING LOCATIONS ARE aRESERVED FOR REGISTER SAVES 
; KANY yan THERE IS AN ERROR A Lb THESE WILL BE ILL 
*#ONLY SOME MAY BE PRINTED BUT ALL WILL WBE FILLED TRUE 
t eFOR THE TIME JUST AFTER THE “ERROR” ERROR COMMAND 
001704 oo0000 8) >} ft) ;DATA BUFFER 
001706 900000 wc 0 :WORD COUNT 
901710 0000 0 ?BUS ADDRESS 
i7le 000000 cSe 0 :CONTROL AND STATUS 2 
001714 900000 CSI: 0 ; CONTROL AND STATUS 1 
901716 000 ER}: 0 i ERR ORs 
0017 000 DST: 0 S RED SECTOR/TRACK ADDRESS 
001722 ERe: 0 jERROR #2 
001724 o00000 OF : 0 $B FSET 
001726 oo0000 CA: 0 SIRED CYLINDER ADDRESS 
001730 g90006 ER3: 0 
001732 00 AS: 0 ERROR 82 SUMMARY 
901734 000000 mR: 9 : sMAINTAINABTL LITY 
p61 336 atte DT: 0 t RIVE FYPE 
001742 900000 SN: 0 :SERIAL NUMBER 
001744 900000 EC1: 0 :ECC POSI 
001746 oo00000 ECe: 9 :ECC PATTERN 
001750 900000 LA: 0 } LOOK-AHEAD 
001752 000006 CC: Q :CURRENT CYLINDER ADDRESS 
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RPO4Y/S’6 OSKLS CTRLR1 MACY11 30(104 O8-NOV-77 08:S4 PAGE 29 
nai O08-NOV-77 08:30 REGIS eR ADDRESSES SEG COZ) 
;#FLAGS 8&8 INTERNAL PROGRAM CONTROL WORDS 

001754 000010 UNITS: .BLKW 8. E OF VES PRESENT TO TEST 
001774 00000 UNIT: -WORD O Haat UNDER TE EST 
001776 d00000 NOUNIT: .WORD 0 

; USE 19 "kg pe TRACK. oF NUNIT UNDER TEST 
oo2000 000000 NUNIT: .WORD 0 US pein IF THERE IS MORE 
OG200e 900000 SELECT: .WORD OQ ial tC ONES Toate UNIT TO BE SELECTED 
002004 000000 UNITSL: .WORD O UNIT NO. SELECTED 
002006 od00000 ERFLGS: O ERROR FLAG 
002010 o00000 SAVOT: O AVE TYPE REGISTER 

FOR CORPARISON iN Baive CLEAR TEST 


OOedie o00000 SAVSN: 0 Save Ree TAL NUMBER REGISTER 
FOR COMPARISON DRIVE CLEAR TEST 


3 AND RH INIT TEST 


002014 oo0000 PCJSR: 0 ;SAVE PC OF JSR WHICH GAVE THE ERROR 
002016 900000 ATTENT: O ;ATTENTION BIT FOR PRESENT UNIT 
002020 000000 TOTALAT: © :TATAL ATTENTION BITS 
002022 oo0000 TMPILL: O ; TEMPORARY ILLEGAL FUNCTION 
oo2024 op0000 TSECC: 0 ;FLAG TO SAY IF ECC TEST QR NOT 
;WHEN =177777 IT IS AN ECC TEST 
;WHEN =OIT IS NOT AN ECC TEST 
002026 og0000 TESDTE: 0 ;FLAG T ni IVE TIMING ERROR OR NOT 
;WHEN = F707 
;WHEN = 2 hot A DIE Test 
002030 oo0000 TAGDTE: O ; TEMPORARY TAG USED IN DRIVE TIMING 
:ERROR TEST 
092032 000000 TSTNM: 0 ; TEST NUMBER 
062034 og0000 FIRST: O ;IF ZERO WILL TYPE HEADER 
062036 oo0000 RPOE: 0 ;IF 0 PROGRAM WILL TREAT DRIVE AS RPOY 
oo2040 opgce RH70: 0 :IF 1 PROGRAM IS RUNNING ON RH70 


; IF O PROGRAM IS ON AN RH11 


puta 


M-OWO NOW £ wre 


;#TABLE_FOR ATTENTION BITS 
:#ATTENTION TABLE 


pon ATABLE: .BYTE 1,2,4,10,20,40,100,200 


ZRIGBO,RPO4’S’6 DSKLS CTRLRI MACYI1 30(1046) OB-NOV-77 08:54 PAGE 30 
éZRIGB. P11 O8-NOV-77 08:30 REGISTER ADDRESSES 

1331 

1332 

1333 ; #FUNCTION EQUATES 

1335 ;#TABLE OF FUNCTIONS FOR RHCS1, THEN “GO” BIT HAS TO BE SET 

1338 Bpsous 00 NOPERA: O NO OPERATION 

1338 pes pus rately AL DED: 2 + ONL OAD CST AND BY) 

1340 O0204%6 9O00006 RECALI: 6 i RECAL IBRATE 

t3q3 resets RELEAS; ie OEE EO AL-PORT OPERATION 

$ H = 3 

i345 paspeq 000030 SERCH: 30 SEARCH 

1344 002056 000050 WRCHEK: SO :WRITE CHECK DATA 

1345 902060 900052 WRCHOT: 52 :WRITE CHECK HEADER AND DATA 

1346 0060 WRIDAT: 60 :WRITE DA 

1342 002064 be WRIF OR: os {WRITE HEADER AND DATA (FORMAT; 

1349 esata 72 REFOR. 72 READ HEADER AND DATA 

13S0 002072 SEECOM: 4 i SEEK COMMAND 

135i 002074 000014 OFSETC: 14 :OFFSET COMMAND 

1352 002076 00001 RETCL: 16 ?RETURNTO CENTERLINE 

1353 2100 o00022 PKACK: 22 :PACK ACKNOWLEDGE 

1354 002102 o000e0 READIN: 20 *READ IN 

1355 002104 900000 ILLEGL: .WORD :COMPUTED ILLEGAL FUNCTION 

1357 

1358 ;#DATA BUFFERS FOR READ WRITE 

1360 

1 002110 900422 WRFROM: .BLKW 274. ;WRITE FROM THIS BUFFER 

: 003154 900422 REINTO: .BLKW 274. :READ INTO THIS BUFFER 

i 

i 

i 

i 

A 

i 
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CZRIGB.P11  O8-NOV-77 08:30 REGISTER ADDRESSES 
137 
132 -SBTTL 
1375 “SBTTL #*#*DIAGNOSTIC CODE##* 
1378 ‘SBTTL 
1378 .SBTTL SETUP TESTS 
1 737 177777 002002 BEGIN2: MOV 8-1. QaSELECT | ;SELECT UNIT 
i366 gouzgo gua7a7 nev Beda® 
1382 O04240 005037 o0200e2 BEGIN: CLR DeSELECT ;DO NOT SELECT UNIT 
1383 :NORMAL RUN 
1384 
1385 oo4e44 START: 
1386 004244 ooD00S RESET 
1387 
1369 
1 4 737 000000 177776 STARTA: MOV :SET PROCESSOR STATUS 10 0 
1320 BOISE Biss32 =BeOORS 12778 MOV tRPVECT aRPVEC FETs POCERBOR FINELY DRIVE INTERRUPTS 
1392 004502 004737 955172 JSR ss TKINT : INITIALIZE THe Ty KEYBOARD 
1393 004506 005737 002034 TST ast TR {1S THIS FIRST TIME ROUND ” 
1394 004512 001001 BNE ?§ : SKIP HEADER 
1395 004514 O00402 BR 2§ 00 HEADE 
1397 OO4S16 000:37 005326 1$ IMP aeSND1 ;SKIP OVERALL PROGRAM HEADER 
1398 O0452e2 2g 
1399 
ie 
1408 00532 012737 177777 002034 SND1: Mov 8-1, 38F IRST ;NEXT TIME DO NOT GIVE HEADER 
1404 
1405 005364 032777 010000 173546 RH7OCK: BIT 8SW12, ISWR ;LOOK TO SEE IF USING RH70 
i406 905372 001403 BEG :IF Swi2 =O, SKIP NEXT 
1407 005374 012737 00001 902040 MOV #1, 28RH70 tIF Swie = 1’ CU IS AN RH7O 
1409 4 oo2002 3s: TST aeSELECT ;200 START? 
1410 ses paste RBOCT 
1411 OO54e4 OM2716 177770 BIC #177770, (SP) ONLY KEEP LAST 3 BITS 
8 
148 474 8} 3632 ele MOV (2p 33° aeUNITSL AVE UN T : BE TEETER 
1415 


ONO 


har 
= bs 0 be ee oo ee ao 


SEEEELCLESLSLE SEE ELS EEE EEE EEE EL fats 


HSBOIEREORHBSONONLoN—Sowae be 


RPO4/S 


OSES2E 


 DSKLS 
08-NOV- 7 


Rs 
88 


oO 
Dotinee 


CTRLR 
08:3 


001000 
ose644e 
OR 3e 


000006 
177776 
o20000 


ooded4 


041314 
00S76e 
001700 
002040 
O0S6432 


O0000& 


MACY11 30¢ 


000030 
ooo004 


oooo004 
001200 
173334 


oooo04 


000030 
oooco4 


GE 


1$: 


2s: 


4$: 
3$: 


TRP: 
RIN: 


O46) a Pe 77 


VALUE 


ay PAGE ef 
OR SOFTWARE SWITCH REGISTER 


wSTACK, SP ;SET UP STACK POINTER 


#REGSA:, QWEMTVEC; ERROR VECTOR SO THAT 
oe NO REGISTERS BRE SAVED 


Hs of a sERRVEC ;SET FOR BUS TIMEOUT 
RO iFheRe are 24 


TEST 
HRHbB RI HAS ADDR OF ADDR OF FIRST REG. 
335 : HARDWARE REG. 


' ; COUNT DOWN 

1 :BRANCH IF 24 NOT DONE 

3 ‘BRANCH IF 24 DON 

BERRVEC +2 DeERRVEC ;RESTORE TRAP CATCHER 

Be P5+ ;CLEAN STACK 

CRIS, ETNPL :STORE FAILING REG ADOR 

:REGISTER NON EXISTA 

#5413, , aSWR : INHIBI ERROR BAINTOUT ? 
:BRANCH I 


#sADDMOD , -( SP) ;GET READY TO TYPE STARTING ADDRESS 
:OF “CHANGE OF BASE ADDRESS” ROUTINE 


;FORCE THE RESTART! 


asSEOP ;GO TO END OF PROGRAM --------------- 
aTRP, ae4 s INITIALIZE VECTOR 

a BRHBAE ADDRES S RPBAE (RH11/RH707) 

g¥RH70 :FOUND AN RH70-SET MASK 


Rep 4 : SETUP 
SERROR? OAEMTVECIR STORE E "He VECTOR 
Fee Te TERS ARE SAVED 


BERRVEC+2, asERRVEC ; ;RESTORE TRAP CATCHER 


EG S034 


-~ 
- 
~~ 
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CZRIGB.P11 O8-NOV-77 08:30 REFERENCE EACH REGISTER SEG D025 
1453 
Hee 
1456 006044 012706 001000 MOV #STACK, SP ;RESET STACK 
1458 006070 013737 010736 006110 MOV DePRCS2+12, SUN 
1459 906076 013737 001636 006112 MOV JISRHCSe, JBUNFE 
1460 104 604537 O42266 JSR RS, JeBI TST ;TEST BITS IN REGISTER 
1461 006110 000000 UN: WORD O ‘ONLY THESE BITS TESTED FOR READ WRITE 
i462 O061le 0000 “WORD O ‘ADDRESS OF REG. BEING TESTED 
1463 006114 104001 ERROR 1 tIN CORRECT DATA RECEIVED 
1464 006116 0600207 RTS PC ‘RETURN TO BLT3 ROUTINE 
1466 
1467 
i468 
1469 
1470 
1353 
1473 006136 013701 001656 MOV JeRHAS, R1 ;R1 HAS ADDRESS OF RHAS 
1474 006142 012711 177777 MOV #-l,a ?THIS CLEARS RHAS (SURPRISED!) 
1475 006146 011137 001126 MOV @R1' aeSBDDAT : TEST DATA 
1476 006152 108737 001126 TSTB #SBDDAT 
1477 006160 005037 001124 CLR #$GDDAT ;GOOD DATA 
1478 OO6164 010137 O42264 MOV R1, J#REGADR :FAILING REG. RHAS 
1479 506170 104001 ERROR 1 ‘RHAS DOES NOT CLEAR 
i460 :BY WRITING ONES IN 
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QRRZER SSE SRRIR BERRIES” es 


906202 RESET : START i" AN INIT 
le 004737 0SS172 ISR PC OeSTKINT iatt TTY KEYBOARD 
16 03277 020006 172714 BIT asiils, a LINaet RROR TYPEOUT? 
24 114? BNE YES 

544 01370 1656 4S: MOV #RHAS,R sk Rl WITH . OF RHAS 
poeeco B135 apts MO Senncse, Re it OAD With ABBR: OF RHCS2 

5S4 ie CLR 2 ; CLEAR ( SS UNIT #0) 

5 1 000010 MOV #8. ,RO : INITIALIZE OR "4 3 E 

13704 O0164e MOV DSRHERI, RY L R4 WITH ance RHER1 

DOBSE6 714% 177777 1S: MOV #-1,0R4 7M E IN Rl OF UNIT ADDRESSED 

Be Heals re ESCA" boun Oa veal TER 

576 atk BNE ft i$ ST DO REXT UNIT vr 8 NOT DONE 
006600 1 7 002020 MOVB OR1,asTOTALAT ;SA L SULTI ATTENTION BITS 
006604 ier 002021 CLRB DeTOTALAT+1 CUBED TR DR E CLEAR — 
006610 tesa TSTB aR1 :TEST RHAS Fok ANY ORIVES P PRESENT 
006612 901402 BEQ es : RE SPONDING - TY HE MESSAGE 
006614 000137 007166 IMP XE2 : THERE - GO FILL “UNITS” TABLE 
006620 032777 O20000 172312 2S: BIT #SW13, ISWR ; INHIBIT ERROR TYPE OUT? 
006: 001402 BEO 33 :TYPE “NO DR Vee MESSAGE IF NO 
0066 000137 007524 IMP SELTST *CHECK FOR SELECTED UNIT START AND L 

:“UNITS” TABLE WITH DESIRED DRIVE F SO 
006634 3S: 
007162 000137 041314 IMP aeSEoP ;GO0 OUT------------------------------- > 
;*#SET UP DRIVES PRESENT TABLE 

007166 XE2: 
0071 12700 000010 2s: MOV sk “UNITS” TABLE COUNTER 
007172 p17 00 001754 MOV sunt R3 it OAD “UNITS” TABLE POINTER 
007176 Ole723 177777 3S: MOV #-1,(R3)+ :PRESET 1ST TABLE BLOCK TO ALL ONES 

7202 005300 DEC RO :COUNT DOWN 

7264 001374 BNE 3S :PRESET NEXT BLOCK IF 8 NOT DONE 
007206 012703 001754 10S: MOV sUNITS,R3 RELOAD THE TABLE POINTER 
007212 CLR RS :INITIAL IZ UNET NO. TOO 
007214 7 901776 CLR QSNOUNIT NO UNITS re coun 
0072 i 10 MOV #8. ,RO if Conp TER 
0072204 O111 001176 MOV Ri’ asSTMPO OF RHAS INTO TERPORARY STORAGE 
007230 006037 001176 4$: ROR sStMPo ‘SET CARRY IF Put (UNIT ATTEN. ) 
007 1031 BCC 4 HECK NEXT UNIT IF one NOT IN BIT O 
007236 010577 172374 11S: MOV RS, IRHCS2 INSERT UNIT NO. INTO RHCS2 UNIT ADDR. 
GO7242 022777 Gex0e0 172414 CMP #24020, JRHDT READ RHDT - IS IT A DUAL PORT RPOY ” 
007250 O61503 BEG 6$ :YES...TYPE THE UNIT NO. 
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UT UTUTU UU UT 
as RE RENE RRRE A 


Met SoB-Rever7 Oargo CY} SPQ1ON) TBETNEOR DRIVES PRESENT USING RHAS AND RHCS2 Seq 0037 


“Pll 
? 777 Oe0020 172404 CMP #20020, IRHDT : READ RHOT - IS IT A SINGLE PORT RPOW 7? 
ga rare BEQ 63 YES...TYPE THE UNIT 
007e 2777 024021 172374 CMP #24021, IRHOT T RPOS ”? 
BEE BLE comet svemx —PHRocer amor ited iel bed 
oo 1467 BEO 6$ . PUB eho tT tr SO 
007 022777 Oe4022 172354 cn #24022, ORHOT eee0 RHDT - IS IT AL PORT RPO& ” 


» TYPE T vat 


4 

731 4 6 ; T 
b0o31 po3793 O200ee 172344 CMP #20022, JRHOT ;READ RHDT te T A 
007320 6$ T 


NGLE PCRT RPOE ? 
:YES.. “TYPE THE UNI : 


8 
- 
<= 
uw 
N 
Oo 
m 
© 


;#NO...IT’S NOT_AN RPOY/RPOS/RPOG DEVICE SO TYPE 
;#OUT THE DEVICE TYPE 


7350 OL 0546 HOV RS,-(SP) ;PUT THE UNIT NUMBER ON STACK 
0073 fbccas 172262 HOY @RHOT, - (SP) ;PUT RHOT ON THE STACK 
boo4 boos 54 tUNIT NOT AN RPO4/RPOS/RPOG SO TEST NEXT ONE 
) 3 6S: MOV R (R3 + : TABLE POSITION AND INCR IT 
7 tose 1 001222 TYPE SORE eRe 
007 OL 0546 MOY RS, RESP) jPUT UNIT NO. 57 THE STACK 
agate 005237 001776 INC @eNOUNIT INCE T 40 AL NG. OF UNITS 
007476 005205 S$: INC RS ;’RHCS2’ UN UNIT ADORESS 
R :DRIVE COUNTER DOWN ONE 
85 o2 poise pee ag Oey AND DO NEXT UNIT IF @ NOT DONE 
oo 013737 1754 774 128: MOV DSUNITS,JSUNIT ;SET UNIT NO. TO FIRST ONE FOUND/OR O 
85 6 13737 03177 a62060 bee SahOUNTT, SANUNIT® j SAVE NO. "OF UR HRN ONLY ONE UNIT 
ite NUNIT > THEN MORE THAN ONE UNIT 
007524 732? SELTST: TST DeSELECT ; STARTING ESS 
007532 p0S735 eedetet 001774 . MOV Se ORT ESL. awuNIT + BNANGE GNEte NUMBER OT To ” SELECTED ONE 
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Reese busase bosble PR SGAPTERPISK «= FEEL UNIT NO. 
;*#TEST FOR UNIT #0 
007574 737 001774 TST QauNIT 51S UN NEXT_IN THE UNITS TABLE 7 
wibeats poigee 000041 ROY ioT r HF nat, Ris Ba ee LOCATION 
DOPE TS 051015 retains BNE More Noe it fy Mita T TESTING UNIT #0 
007614 os 002002 a , LECT SHAS UN "ae ECTE 
’ 


te ai Sie boi ART *) 


007620 001012 BNE 
;#INCREMENT THE UNITS TABLE TO NEXT DATV F ANY) 
:#8 DECREMENT THE “NOUNITS” PRESENT (TO Be ESTED) 
g07 622 012700 001754 mov HUNITS, ,RO sLOAD THE UNITS TABLE PO POINTER 
i ¢ BLE INHERENT. ee The POINTER, RO) 
007630 922710 177777 CHP #-1, (RO) ; > THERE t ABLE ENTRY PRESENT ? 
Bot 001774 v (RO), QSUNIT ‘Be 16 =e UNIT PUNDER. T pOyT 
607642 005337 001776 DEC QaNOUNT TS DECREn CAUSE UNIT # O WONT’T BE TESTED 
007646 013700 001774 iOS: MOV QsUNIT,R CON aT UNIT NO. 


;#SET UP THE PROPER DEVICE TYPE FLAG 


171774 ce ERE. Bae aera se Pe FLAG 
171764 ene = S022, aRHOT Hiss Bhat Beh *g 





Q 
BF + gone Cer RPOG FLAG 
002036 2S: Vv #-1, BRPOE :SET 
3s: ;ASSUME THE NEXT UNIT IS AN RPOY 
007712 116037 cO4220 oo2016 MOVE  ATABLE(RO),3sATTENT ;SET APPROPRIATE ATTENTION BIT 
007756 013746 001774 MOV @HUNIT,-(SP) | UNIT NO. TO STACK 
007762 0440S TYPDS TYPE ORIVE NO. 
1 2777 024020 171602 CMP 824020, ARHOT UAL PORT RPOW ? 
Bites Bones ee iviers eo a eo ommor — :Tee, Poead Pas UT 
BiBpss Bai45; . — gm. Hagel MESSAGE 


1 
inn 022777 Oe402! 171562 2402! , IRHDT 5 DUAL PORT RPOS ? 
i Cee7 O200e1 i7:5S2 CMP #20021, @RHOT t CINGLE PORT RPOS ” 


SERIGBCATT SoB-ROVe?7 Gesae © MCYA! SREIONG) LOBENGZRIAL NUMBER AND DRIVE TYPE seo 0039 


E 


1638 010112 001447 BEQ 6S ; TYPE MSG 

1640 010114 022777 Oe4O22 171542 CMP #24022, IRHDT 3D PORT RPOG ? 

164 101 2 14 Bes S ; Y 

igMe 101 27 O20022 171532 C #20022, JRHDT ; IN E PORT RPOb ? 

164 101 001420 BEQ S$ 

1644 010134 O004S4 BR is ve "is NOT AN RPOY/RPOS/RPO6B - SO 

1645 oe YPE THE ASCII MESSAGE 

1647 D NEVER HAPPEN AT THIS POINT 

1648 Ute 2s DRIVE GOT SICK WHILE TESTING 

1650 910136 4S: 

1681 1917¢ 000435 bas BR 1S ;SKIP NEXT MESSAGE 

1653 bt b250 000416 : BR 1$ ;SKIP NEXT 

1654 010232 6S: 

1658 10266 005777 171374 1S: TST ORHSN ;READ SERIAL NO. AND DRIVE TYPE 

165 10272 0057 171366 TST aRHOT ; THESE TWO ARE to HELP SCOPE LOOPS 

1658 010276 017737 171364 oO02012 MOV DRHSN,@8SAVSN ;SAVE TO CHECK IF CLR RHCS2 BIT S CLEARS ANY BITS 
1655 010304 017737 171354 O02010 MOV DRHDT/aeSAVDT  ;SAVE TO CHECK IF CLR RHCSe BIT 5 CLEARS ANY BITS 
i 


o 
o 
= 
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P11 O8-NOV-77 08:30 TS TYPE SERIAL SOHBER AND DRIVE TYPE SEG D040 

010322 004737 042614 JSR PC. aecLOISK : GIVE INTTIL 126 

010326 032713 010000 BIT aMOL , RZ :CHECK MOL IN RHDS1 

019550 G3e713 010000 1g: BIT #MOL; IRB :CHECK MOL IN RHOS! 

010554 001375 BNE 1$ !BRANCH IF MOL IS HIGH 


CO4 


3h ay RPOW’S’6 OSKLS CTRLR1 MACY1L1 3061046) -NOV-77_ 08:S4 PAGE 39 
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1667 
1668 -SBTTL REGISTER TESTS 
1670 010700 004737 O42614 JSR PC, aaCLDISK ;GIVE INITIALIZE 


~_ 
o 
“J 


te ee 


Cd eed eed ed eet ed ed 
TOOTrrorwr 
OMT UN £ Lotue 
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i793 
1680 

168i 

1682 011014 012706 001000 MOV aSTACK ; RESET 

1683 011026 004737 042614 JSR PC, gecl DISK 50 SE] UNIT NUMBER AND DEVICE - 
1684 Bi Ps RRESPONDENCE (R1-R4) 
i686 -#SET FORCED PARITY coven 'PAT’ 

1687 011032 oS2777 oD0020 170576 B15 #PAT, IRHCS2 ;SET “par TO INVERT PARITY 

1689 011040 005077 170576 CLR JRHER 1 : GENERATE DEL REGISTER USING BAD CONTROL PARITY 
1691 ;#WITH THIS PARITY ERROR NOTHING WILL BE READ TILL IT IS 
169¢ : #CLEARED 

1694 011044 011137 001126 MOV @R1 , @8SBDDAT jRHCS1 ---) $BDDAT 

1695 011050 022737 104200 001126 CMP #SC!DVA!RDY, as oh COMPARE RHCS1 AFTER PARITY 
1697 011056 001406 BEQ 1S aM IF ae DVA!ROY=1 

198 B1ioee Bisia? daesea Otte MOV Fro URNEUBy - = bones RHCS1 

1$38 831888 rere ERROR ee 

1701 ree ere RHCS1 

1702 + Sct OVA! RDY 

1703 ie H nt * BIT HIGH 

i704 011074 013746 001774 1S: MOV QaUNIT, -(SP) :GET UN 

170S 611100 052716 O00120 BIS SPATIIR, (SP) i INCLUDE PAT AND IR 

1706 O11104% 012637 001124 MOV (SP)+, a&SGDDAT ;PU Ss 

1707 O11110 O11237 001126 MOV aR2, akSBDDAT *RHCS2 <---> 

1708 011114 023737 001124 001126 MP aeSCODAT, asSBDDAT Sees: RHC 

1709 O11122 001403 BEQ FS) : 6 TeFEE va! i Pre HIGH 

1710 011124 010237 o4e264 MOV 2, J#REGAOR 

i711 011130 104001 ERROR 1 BENG t REG STER RHCS2 DID NOT 
izle : READ UNITS!PAT! ITS H 

1714 011132 011437 001126 2s: MOV DRY, A#SBODAT one) 

1715 011136 022737 OOD010 001126 CMP #PAR, J#SBDDAT ERROR , REGISTER RHER1 SHOULD 

1717 911144 001406 BEG 3$ iA VE OK IT DOES 

1718 O11146 012737 o00010 001124 MOV afAR as$GDDAT 1 DATA 

1719 6811154 010437 O4e264 MOV a’REGADR tFAILING REGISTER RHER1 

i720 O11160 16400: ERROR % PARITY ERROR DID NOT 

171 ;SET *PAR 

te 2) ee 

1723 Ollite 38: 
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1734 
1735S 
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IN RH11, 16 IN RPO4Y) ONLY 12 ARE 


4 
S 

ERIAL NO. AND DRIVE TYPE) 

S1, RHLA, RHCC, RHEC], RHEC1, RHEC2 


A 
;% Y 
; ## THE OTHER 7 WHIC 
RE She OR ZERO CANNOT BE WRITTEN 


;#*#ARE READ ONLY 
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1824 
1825 

1826 012012 012706 001000 MOV #STACK, SP ;RESET STACK 

1828 012024 004737 042614 ISR PC, J8CLDISK TIS SED TO SETUP HARDWARE’ 
1829 REGISTER CORRESPONDENCE 
1830 : eel 

i831 : :RISRHCSL 

1832 ?R3=RHDS 1 

1833 *RY=RHERI 

1834 012030 005037 o02006 CLR QsERFLGS :CLEAR ERROR FLAG 

1836 : #SIMULATED DISK AREA WILL BE USED AS A TEMPORARY 

1837 :#STORAGE TABLE FOR DRIV PRESENT DETERMINED FROM 'NED’ = 0 IN RHCS2 
1839 012034 012701 o51416 MOV sOISK,R1 LOAD TABL POINTER 

1840 012040 012700 o00010 MOV #8., HER tion COUNTER 
1841 O12044 o12721 177777 1S: MOV a-i, (RL)+ ILL 8 a ebeAtt WITH 

1843 bi Spee BoTse4 1$ : COUNT OGUN ONE NOT” 

184S 012054 ooso1e CLR are ; SELECT IT NO.O (U2!U1!U0=0) 
1846 012056 012700 oo0010 MOV #8. RG OCATION COUNTER 
1847 O120be 012701 OS1416 MOV sDiSkK,R1 T POINTER 

1848 012066 005714 2s: TST aR4 tREAD A VE GISTER (RHER1) 
1849 012070 O327le 010000 BIT SNED, aR2 ; NON EXIS T EN I IT=0? 
1850 012074 O01415 BEQ 3S iYES SENT, CHECK THE TYPE 
1851 012076 005300 7S: DEC RO ,OecRER T DRIVE COUNT 
1B5e 012100 001454 BEG 4g ONE eK SUL g IF 8 DRIVES DONE 
1854 O12102 011246 10S: MOV OR2,-( SP) ;PUT RHCS2 ON THE STACK 

1855 012104 042716 177770 BIC etc?, (SP) *MASK ALL BUT THE UNIT NUMBER 
1856 012110 ooSe2i6 NC (SP) j INCREMENT UNIT NUMBER 

1857 Oleli2e 013703 o01640 MOV QERHCS1, ,R3 : Sl S 

1858 012116 005203 INC : Ss YTE OF RHCS1 
1859 012120 112713 oo0100 MOVE #100, aR3 :SET 'TRE’ IN 1 

1860 WITHOUT SSING DRIVE 

1861 012124 o12612 MOV (SP)+, aR2 RHC Hes INCREMENTED UNIT 
1862 sWITH NED’ CLEARED 

1863 012126 000757 BR 2s :TEST FOR NEXT DRIVE 

1865 

18e? ;#CHECK THE UNIT TYPE AND BUILD *NED’ DERIVED UNITS TABLE 

1869 012130 022777 Oe4020 167526 23S: CMP #24020, JRHOT Pte HIS A DUAL +a RPOY ? 
1870 Ol2e136 001425 BEQ as NT R IN, TABL 

1871 012149 02777 020020 167516 CMP #20020, RHOT HIS A SIN ae: PORT RPOY ? 
157 Olel4é 1421 BEG 8 ENTER N TABL FS 

1874 012150 022777 Oe4O22 167506 CMP #24022, IRHDT S THI RT RPOG ? 
1875 O12156 001 15 BEQ 8 tear R IN A Bure re SO 

1876 Olel 0227 O20022 167476 CMP #20022, IRHDT HIS A SINGLE PORT RPO 
1877 Olei6& O001411 BEG 8s :ENTER IN TABLE IF SO 

1879 012170 022777 O24021 1&746E CMP #24021, IRHDT :IS THIS A DUAL PORT RPOS ” 
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ll 08-NOV 
121 0014 BEQ 8 NT 
gis 022777 20021 167456 CMP $3021, aRHDT ‘Fg Pare ne SINGLE PoRT RPOS ? 
012206 001401 BEQ “4b TR TER te TABL 
012210 000732 BR 7$ ;NO RPO4 FOUND SO CHECK NEXT UNIT 
012212 012746 000010 8s: MOV #8. ,-(SP) ; LOAD max NO. DR 
O1216 160016 SUB RO, (sp) 5 (SP Hae The BAESENT DRIVE NO. 
1 12621 MOV (SP)+, (R1)+ TABLE INCR TABLE LOCATION on 
oe ute Om K TO. HERE IT was 
Ol2222 005300 DEC RO ; IVE COUNT 
Sieees 901402 EQ $ : CHECK F 8 UN units CHECKED 
1 geb Sele NC are :SELECT NEXT UNIT 
Ol2e 000716 BR es :GO TEST IT 
:#COMPARE 'NED’ DERIVED UNITS TABLE WITH THAT DERIVED USING RHAS IN TH 
012232 037 043510 4$: JSR RO, J8COMPAR sc RE 
Ole oot ye4 UNITS  RHERI ° R VED DATA 
Ole OS1416 DISK :*NED’ TES 
01 242 000010 8. :NO. OF 70 COMPARE 
12244 01 252 5$ :RETURN F HE 
Olee4%6 012300 6$ ;RETURN F FOR ERROR DATA 
Oleeso Ole4iéb 13$ :RETURN FOR GOOD COMPARISON (NEXT TEST) 
;#SPECIAL 'NED’/’RHAS’ TABLE T YPE OUT ROUTINE (BYPASSES .SERRTYP ANC 
:#HENCE IGNORES INHIBIT ERROR TYPEOUT SWITCH) 
Ol2252 104022 Ss: ERROR 2 
012254 012703 000010 MOV r] R3 ;LENGTH OF BOTH UNIT TABLES 
012260 012701 001754 MOV sUNITS,R1 ; § OF RHAS/RHER UNI s T 
012264 01270¢ OSi416 MOV #01SK, Re : “NE ’ RHCS2 UNITS TABLE 
012270 012137 001124 14S: MOV (R1)+;, J8SGDDAT song te NO. INTO a SeQ0AT™ 
012274 012237 001126 MOV (R2)+, a#SBDDAT TABLE NYO agRoDaT™ 
: if Oa SED: UN Location 
012300 032777 O20000 166632 65: BIT #SW13, ISWR s IMMIOIT ERROR TYPE OUTS ? 
012308 1043 BNE 1 
o1 3} 27 177777 001124 C 8-1, 28SGODAT UNET ree" E LOCATION = -1_? 
1231 1413 BEQ ie omgeck "NED’ TABLE 
O 1 4% 716 TY ACES 
i 104401 716 TYP : SPACES Ba: aie OLUMN 
Sies40 04401 062724 TYP "SPACEe i PRE 0 NEXT” agoeunn 
12344 06 las ICHECK T Rep’ MENT ABLE 
012346 104401 062716 11$: TYPE , SPACES 
l23S2 104401 062716 TYPE "SPACES i188 Oy Test sa COLUMN 
012356 104401 O6e716 TYPE * SPACES OvER RHAS UNIT COLUMN 
012362 022737 177777 OOL126 12S: CMP 8-1, J8SBDOAT :DOES ‘NED’ UNIT TABLE LOCATION = - 1 ” 
12279 001404 BEG ers YES...DON’T TYPE IT 
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012402 005303 001223 
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CONTROL AND STATUS 2 (RHCS 2) - ‘NED’ 


THERE GARMT UE IN BOE SPA 
BRE ss :GQUN gee: bu Paid 
ADD #14,SP + ADJUST STACK FOR NO “POP” & RTS FRGM “COMPAR” 
13$: 


;#IN THE ABOVE TEST BITS 0,1,2, AND BIT 12 ARE TESTED 


/ POUND usin RneR) 3 hu AAs TYPE HEN Th HEN THe ERROR. 15 Back E me TH WuAT WAS 


2( NED) br UNIT SH TO 2), bp RHERT. OR RHAS 


me I MOT Ess Te Oy Omer 18. ose IF A NON-EXISTENT 


rerum LOAD LOCATION “ERUNIT” WITH A UNIT 


NUMBER 
*AND RESTART AT LOCATION “ERSTAR” THIS ah LOOP FOR 
;*EVER DOING EXACTLY AS TEST ON THAT ONE UNIT 


;# 0. GFT BACK TO MAIN DIAGNOSTIC HIT HALT SWITCH AND 
: SRES T 


PROGRAM IN NORMAL MANNER 


20 
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1965 
1966 
1967 
i3e8 
1990 012420 004737 042614 ISR PC, JUCLDISK ;SET REGISTERS AND CLEAR 
1971 Ole42e4 005037 O02006 CLR astRFLGS :CLEAR ANY ERRORS 
1373 ;*FILL ALL POSSIBLE BITS WITH ONES 
137e SIERO 18777 TTTT Nee GY HTTP ORE BURG COURS REN CUTER CAA LI7T77 
1338 piSdan 18555 177777 1p5 188 MOV £15595" SRS BUS aboRes "REGISTER Er fs 177777 
1978 01 777 157010 167156 BIS #157010. aRHCSe ; ROL ATUS 2 GETS 157010 
1979 o1 18777 192 16715¢ MOV 4 ; TROL TAT REGISTER/GETS 1476 
1980 O01 10777 1 358 16714 MOV 1 ; TERI GETS 177777 
1981 012474 012777 017437 167142 MOV #17437 7 $DESI CTOR TRACK 
1382 1 1 i 167136 MOV 177 ; ISTER 2 
198 1251 12777 16077 1671 #16277 OFFSET R 
1984 012516 012777 1 167126 MOV #1 272, SRHCA ; NBER 
i366 i ol 777 dooce! 103156 oy SOnD, aH RSE AINTENAN Rec! TER 
1387 i 12777 1 1671le MOV #17 , ORHMR I AINTENANC StetER 
iege 0125 05271 0 BIS SCLR, are ; CLEAR POSSIBLE BITS 
1990 O1s8se 01371 1774 v asUNtT, ake iReineraTe Unit NO. 
1331 12556 012700 1630 MOV r ;RO CONTAINS ADDR. OF ADOR. OF REG. 
1333 ;*DATA BUFFER REGISTER 
i3ee 1 12737 177777 001124 Vv 8177777,08 T; TA FOR ERROR 
1996 pisess yee 042264 HOY Sho ceRtenen ; STER ADDRESS 
1997 012574 13037 001126 MOV (RO)+ 9#$80087 :T T 
1998 G12600 3737 001124 oo1126 cH SeSc00A s BooAr ; a 0900 WITH TEST DATA 
2090 bise%8 104601 ERROR 1 : A DID T HAVE ALL ONES 
2901 :AFTER A CLR IN RHCSe 
2003 O12612 oS2712 oD0040 2s: BIS #CLR, aR2 ;SET CLEAR IN BECAUSE 
eons IRERO[NG ReOs AFTER CLERRING WILL 
e006 012616 013712 061774 MOV QeUNIT, ARE i REINSTATE UNIT NO. 
e008 ;*#WORD COUNT REGISTER 


; ;#BUS ADDRESS REGISTER 
;*#CONTROL AND STATUS 2 REGISTER 


;*CONTROL AND STATUS 1 REGISTER 


Hetetetetetatet steers: 

pen een eer 

WONMUIS WO 
ae an 


;#ERROR 1 REGISTER 


BOS . 
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5058 

2023 ;*#DESIRED SECTOR/TRACK REGISTER 

20eS 

2026 ;#ERROR 2 REGISTER 

2027 

2026 . 

2029 ; #OF FSET REGISTER 

2032 ;*#DESIRED CYLINDER ADDRESS REGISTER 

2034 

2025 ;#ERROR 3 REGISTER 

2036 

2037 

2038 ;#ATTENTION SUMMARY REGISTER 

2 013164 013037 001126 15S: MOV acR )+. 9#SBDDAT T RHAS CONTENTS 
2041 913170 012737 O00000 001124 MOV 63 asddont #8600 “bata oe Ok, ERROR TYPE OUT 
20%2 013176 123737 O011e4% O01le6 CMP8 aeseOsAT. a*eSBODAT 

2043 013204 061402 BEQ 16S 68 RANCH if BocD 

2044 013206 004737 913430 JSR PC, J#ERCS2C : JUMP TO ERROR FOR CLR (BIT S) 
e04s :IN RHCS2 

Bd ; *MAINTAINABILITY REGISTER 

2048 . 

2049 

2050 ;#DRIVE STATUS REGISTER 
ses 013240 012737 OO0E00 001124 178: MOV aes T 3GOO0D DATA FOR ERROR TYPEOUT 
2053 013246 01304 MOV acROss eae G09 

2054 013250 011637 001126 MOV ; TEST DATA 
2055 013254 042716 001100 BIC tev : na ;CLEAR VV_AND PROG 
2056 013260 022726 000600 CMP #600, ( oat ? COMPARE DATA 
2057 013264 O014Ge BEG 20S } BRANCH IF GOOD 
e0ss 013266 004737 013430 JSR PC, a#ERCS2C : JUMP TO ERROR FOR CLR (BIT S) 
2059 ?IN RHCS2 

2060 
2061 ;#DRIVE TYPE 

O62 
SES *#SERIAL NUMBER REGISTER 
2065 . 2 
2066 

sobe ECC1 POSITION 

-& 
2063 : 
2070 
soe) ECC2 PATTERN 
& 

2073 : 

2074 

2075 


2076 ; #LOOK-AHEAD REGISTER 
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78 013422 720 us: TST (RO)+ A OOK-AHEAD REG € PREDICT 
308 teeeis ’ BP ek ak PAPE Fe eee. ANDO TER - 
2081 #CURRENT CYLINDER ADDRESS REGISTER 
2083 013424 005720 258: TST (RO)+ AS THE CURRENT REG. CANNOT BE PREDICTED \ 

084 AFTER A INIT IT IS NOT CHECKED 
ae $: 
208; Si3s4#26 eb | 
2088 913430 014037 042264 ERCSEC: MOV =<RO), QNREGAOR ;FAILING REGISTER ADORESS 
3031 iN oBTETE B49. 
: RED EXTRA BITS 
2093 013436 005720 1ST (RO}+ UNDO -(RO) FOR BAD DATA 
5994 013440 Od0207 RTS PC RETURN TO TEST ABOVE 
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2095 
2096 
2037 013444 0127 001000 MOV sSTACK, SP ;RESET STACK 
2099 0134S6 004737 042614 ISR PC, J#CLDISK INIT GENERAL CPU/DEV cE 
190 Sy slee TER 5 RESPONDENC AND UNI 
101 013462 012777 000001 166170 MOV #DMD, IRHMR 
10e 013470 013777 OO02100 166142 MOV aePKACK, JRHCS1 OAD “PACK AGKNOML EDGE COMMAND” INTO RHCS1 
104 - #SAVE REGISTERS FOR conrentens AFTER ’GO’ IS ISSUED 
10S 013476 004037 043306 JSR RO, a#SAVER ; SAVE 
9 013502 001632 HWC : FROM 
87 013504 003154 RETNTO :TO 
08 013506 000023 19. :NUMBER OF REGISTERS SAVED 
013510 0S2777 O00001 166122 BIS &GO, IRHCS1 sISSUE 'GO’ TO PACK ACKNOWLEDGE COMMAND 
*#CHANGE SAVED REGISTERS TO XPECTED VALUES 
013516 0S2737 000100 003204 drs #VV,a#REINTO+30 ;SAVED RHDS1 
;#AFTER GO HAS BEEN GIVEN TO PACK ACKNOWLEDGE COMMAND 
; ¥SAVE | REGISTERS AGAIN SO THAT COMPARISONS CAN 
013524 904037 043306 ISR RO, J#SAVER : Bay £ 
013530 001632 RHWC ROM 
013532 902116 WRF ROM 
013534 000023 19. ;NUMBER OF REGISTERS SAVED 


UPPER BYT OEE ars By Se ore CHANG ING AN 8 DUAL PORT 
30 7! ON T RHAS WILL BE SAVED AS IS 


VALID poe. THE LOWER BYTE 
013536 113737 003201 002135 hoe THAT OTHE COMPARES ARE ONLY VA R RHAS 


#COMPARE REGISTERS BEFORE PACK ACKNOWLEDGE COMMAND 
faWITH AFTER GO 


013544 004037 043510 JSR RO, a#COMPAR MPARE 
013550 003154 REINTO 16900 Bu | pa te 
01355e 002110 WRF ROM 
61 32e¢ BI 3564 1" iNURBER FOR ERROR 
013560 013564 1$ 
O1356e 013604 es {RETURN FOR GOOD COMPARISON 
13564 013705 047620 1$: MOV @SERWORD,RS iOS TTING READY To INDEX 
613280 060505 ADD R : DOUB ERRO R Wo 
013572 016537 001630 O42264 MOV RHWC-2(RS), aeREGADR-; FAILING REGISTER ADDRESS 
013600 104001 ERROR 1 ; IMPROPER REGISTER CHANGE 
5 Ae TER PACK Syne EDGE COMMAND 
CizéGe 9000207 RTS PC :RETURN TO COMPARISON 


ronorurorornorurororeruruforofororur 
Hreebctebeibetehehsithreteeitetneeritneatireritioteirhthrriratith tetriithtiedttetititiertt bette 


Oh VT EWM OBB IRN LE EOD VU Looe Ow sou Ew 
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211 3913604 es: ;CONTINUE WITH THE NEXT TEST 


tutu 


furururufurururorurururururururururururururururo Fe 
~~ 


a0 


Db b= bo Bs be pe Fe pe he Be Be 


ane empath Sen ebiti nasestttato aA oo 


TUMUMUIe & b&b bn ee 


3 


rurerururorurorurerurvrorurufururururvrurururururufururururururu 
Ww 
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? 900 MOV aSTACK, SP RESET STACK 
813298 gieegs ATES JSR PC, eC BISK NIT AND $ ° T AUP GENERAL CPU/DEVICE 
;#FILL ALL POSSIBLE aneseten BITS WITH ONES 
77? 177777 0 MOV 8177777, ; WORD R GETS 177777 
O13ea2 i 777 135555 168000 MOV (eae > BUS ss" Reis ER GETS 177777 
0136 052777 157010 165770 BIS #16901 i CONT Tus 2 Ts 1774 420 : 
013646 12777 001476 165764 MOV #147 ; CONT TATUS REGISTER 1 GETS 21476 
13654 18772 77777 + +165760 MOV 8177 : RROR TER] GETS 177777 
01 12777 017437 165754 MOV #17437 Al :0ES TOR TRACK 
013670 012777 177777 165 MOV 8177777? :ERROR REGISTER 2 
O1 76 OL 777 016277 165744 MOV #1607 : ESET GISTER 
13704 012777 7 165740 MOV & HCA :DES 
Bi3s38 Biso5> Aoooo1 feerae AGO ina NT NANCE REGISTER 
013726 615995 177 165724 MOV ‘7 50,98" QRHMR MAINTENANC GISTER 
“BEFORE RESET SAVE REGISTERS IN READ INTO BUFFER 
013734 004037 043306 jsr RO, J#SAVER ; SAV 
Bee SEures sir ia 
013744 900021 1?. : NUMBER 
satin omnes argive RESET AND REINSTATE UNIT NUMBER 
013750 0047327 5172 JSR PC, J8STKINT s INITIALIZE TK 
013754 053777 saree 165654 BIS @asUNIT,aRHCSe 
-#CHANGE ORIGINAL SAVED REGISTERS TO EXPECTED VALUES AFTER RESET 
013762 005037 003156 éLR aeRETNTOS +2, ; CER SAVED RHBA 
013766 o13 001774 MOV a 1T5! ) get, ON T {NUMBER FRO SAVED RHCS2 
glare Gracke poste ee Hs beg 
014 0 ss 7 004276 003162 MOV #0VA arnbrs B" NTOe SAY 28 RHCS1 
ertiytd 3164 CLR é INTO+1 ; SAVE 
014014 003176 CLR NTO+1 ioe RS 
014020 2 436000 003172 HOV ai 0 paugeinrot ie iS mers RHOF 
0140 105037 00 CLRB a 
b 14036 b9393> relia 903202 MOV oe0. Tee oes! BA B RMN RNR 
014044 013746 003204 hoy Pes 8s Pere Be free — 
40S0 7 76777 at } TOS THING EXCEPT PROG 
Biapes aie ba8%00 ig 56 3 CEEAR EXPECTED BITS - "DPR*, ‘DRY’ & "VV" 
014060 012637 003204 4S: Mov aaa wREINTO+30; SAVED RHDS1 
014064 ? CLR DBREIATO+36 RHEC 1 
gio Soeser SG32t6 ctf SIREINTOsa5 | ESVED RBCd 


;*#AF TER RESET, SAVE REGISTERS FOR COMPARISONS TO BE DONE 


33 Bo 


fururuorofrururu 
WM OWO IMU £Wwr-OW 


bb po bh be 


rururururururururufurfurururururu 
futurururofurururururfurururufur Hy 
8 Hy se Ck get tanto 
on 


furururu 
0000 OO00000 


bb ba he pee b+ be bob pe be 


GOS 


04/S/6 oe _Rakls creas MAC 11 sala OB8-NOV-77 08:54 PAGE S6& 


O8-NOV- UNIBUS INIT TEST SEG 90Se 
74 004037 043306 ISR RO, J#SAVER ; SAVE 
00 001632 RHWC : FROM 
O2 o02110 WRF ROM TO 
04 00002i 17 :NUMBER 
:#AS UPPER BYT OF .RHAS SCAN CHANGING IN A DUAL PORT 
i #OPERATION T BYTE OF RHAS WILL BE SAVED AS IS 
THAT THE Y VALIO FOR THE LOWER BYTE 
014106 113737 003201 002135 ho ove DUREINTOSES SSWRERONO SS, SAVE UPPER RHAS 
j XCOMPARE REGISTERS BEFORE SET WITH REGISTERS AFTER RESET 
4114 0904037 043510 ySR RO, J&COMP 
4120 003154 REINTO EoD BUFFER 
4122 002110 WRF ROM : TEST FER 
4124 9o00021 17. : 
4126 014134 1$ ?RETURN FOR ERROR 
4130 014134 1$ : 
4132 014154 2s ;RETURN FOR GOOD COMPARISON 
4134 013705 047620 1$: MOV JSERWORD, RS TyiNe READY T TQ INDEX 
4140 O60505 ADD RS,R ER 
4142 016537 001630 o42264 MOV Fe eRS ac) aenechbeus By ING REGISTER ADDRESS 
4150 104001 ERROR 1 REGIST CONTENTS AFTER 
A RE THAT IS 
‘UNIBUS INITIALIZE CAUSED 
3 AN SHPROPER REG E TER CHANGE 
PC RETURN TO COMPARISON 


tL 
b-b 
ut 
tfu 
oO 
Oo 
i=) 
fu 
oO 

a 

a 

=@ 
w 


es: {RETURN TO POINT ON GOOD COMPARISON 


C2RJGBO,RPOY’S~6 OSKLS CTRLR1 
CZ2RIGB.PL1 O8-NOV-77 08:30 


Be 

2240 014156 012706 001000 

eeu Di4@d2 004737 O42614 
43 014206 017700 165416 

ee44 O14ele 01374 001774 

2e45 Olvele 052716 100100 

a ea 

Seve Qitese BbisG3 

249 O14234 010237 001122 

Be50 O14e40 104011 

3551 

255e 

554 

554 

Bess OlN242 022737 144200 

2257 014250 001403 

2058 Olvese 010137 o0112e 

3559 O1428— 104011 

2260 

2561 

Bebe 

2263 

See4 014260 012711 040000 

S5c¢ 14264 4737 42 

S525 814890 822737 805866 

2e68 

2569 014276 001403 

2270 O14300 010137 on1122 

3571 O14304 104011 

3572 

2273 

2274 14306 013746 001774 

2675 014318 082718 000100 

3578 Biuaz5 Bibssr BOLE 

57— 514380 104011 


MACY11 30(104%6) 


001714 


001714 


Teb 


1$: 


es: 


3$: 


O8-NOV-77 O08:S4 PAGE S7 
UNIBUS INIT TEST 


. SBTTL 


SILO TESTS 


#STACK, SP 
Pc, cLOLSk 


i 
b8, aesa0aor 


;RESET STACK 
;CLEAR DISK AND LOAD R'S 


;READ FROM EMPTY SILO 
;GET UNIT NO. IN 
TA LATE BIT AND IR 


am 
=z 


at ot OTHER BITS SHOULD 


#SC! TRE!RDY!DVA, JacS1 HB CIAL CONDITION, TRANSFER ERROR 
et IF is ANCH 
1, 2#8S8DADR IF STORE FAILING REG 
11 :RHCS1 DID NOT HAVE SC, DVA 
:T ROY. AFTER A 
:READ F EMPTY SILO ONLY 
ESE Bers SHOULD BE 0. 
sTRE,aR1 ? CLEAR ERR TTS BY MOVING 
PC. SEPUTREG 5 OE REGISTERS, 
& 5 D 
#ROY!DVA, JaCS1 HALL ets But DY AND DVA SHOULD 
3$ iB H IF YES 
Ri, a#SBDADR :STORE FAILING ADDRESS 
11 :AFTER A ONE IN T 


OeUNTT = (SP) 
SP) 


Abie BOABR 


; RUC RE PHOU DHE Ee AND UNIT ONLY 
N TRE ONLY 


BO, RPO4/S.6 DSKLS CTRLRI 


ZRJ 
ZRIGS.P11 O8-NOV-77 08:30 

2279 

2280 

2281 014334 012706 001000 

eee 014360 004737 042614 

SSec Biussa pesrie pob100 

2286 014374 p6548 042220 

2287 D1 4409 022637 OO017le 

eces O144 001403 

2°89 014406 010237 001122 

2290 014412 104011 

2291 

2292 

2293 014414 905077 165210 

2294 014420 012777 177777 165202 
2295 014426 013737 001636 014436 
2296 G1 4434 1 nit 

2297 014436 b8c0 

2298 O14440 000200 

2299 O1444e 013746 001774 

2300 O14446 O57 18 000300 

2301 O144Se 0047 0422 

2302 O1445e 022637 O017le 

2303 O144 001403 

2304 O14464 010237 001122 

2305 614470 104011 

2306 

2307 

2308 giwu7e 017700 165132 

2303 O14476 017705 165126 

2310 O14S02 Oe2700 o00000 

2311 014506 901410 

esle 014510 005037 001124 

2314 014514 010037 001126 

2215 914520 013737 O01630 o42264 
e216 014526 104001 

23i8 014530 022705 177777 

2319 014536 012737 177777 001124 
2320 014544 010537 001126 

2321 O14550 013737 501630 o42264 
eze2e O1455— 104001 

e222 

2324 

2225 


‘s 


‘MACYL1 30(1046) 
. la 


1$: 


3$: 


4$: 


O8-NOV-77 08:54 PAGE S8 


SILO TST 1 
MOV aSTACK, SP ;RESET STACK 
JSR Pc, CLOLSK :CLEAR REGISTERS LOAD R’S 
MOV QeUNIT, -(SP) 
eis paras UTREG ; SAVE REGISTER 
che (SP)+,aacSe :IR SHOULD ERS er “OR” RESET 
MOV R32, aeSBDAOR ; FAILING REGISTER RHCS2 
ERROR 11 i RHCSe HAVE IR 
UNIT N0 SE AND 

per. 0 HER 
CLR JRHDB iL pate FER (S1L9) WITH O 
MOV #-1, JRHOB L ILO WITH 8 NES 
MOV DeRHCS2, a82S tADDRESS OF R ese 
WAT ‘WAIT TRAP 
aHORO ; ESS OF RHCS2 
MOV QSUNIT, -(SP) ; 
Be BT EPUTREG 46 SAVE REGISTERS 
chr (oP +, aacse :IR AND “OR” SHOULD BE SET 
MOV Re, ¥SBDADR : SAVE RHCS2 ADOR. FAILING REG. 

isET TOGETHE Hcse  SHOUL re BE AND 
MOV : : SAV LO DATA SHOULD 8 
NOY oRHp *RS ‘38 it ILO DATA SHOULD BE AL 
c #0, RO ;FIRST WORD WORD 0 XYZ DO MORE 
BEQ 3s : BRANCH 
CLR #SGDDAT same ghs DA A 


MOV RC, dsSBDDAT 


MOV SeRHOB, QSBREGADR : SAV NG REG. 

ERROR a0, Be NOT FAVE THe FIRST WORD 
CMP #-1,R5 ALL ONES? 

me acta epspoer ee 

MOV JURHOB, IBREGADR ;: Bey Oe 5B FAILING REG. 

ERROR 1 Siu OI NOT HAVE THE E SECOND 


ORO OF ALL ONES WHEN 
AS SET 


SEG COED 


(ele) 
Qh 
&& 


f 
rintetctr 
~—-O0O~) 


perererennnetas 


Be 


fwrr-oO 


turerururururororor 
WWIWW WU) Ww 

ODoONNN me N 

—-OWONTUSL 


RPOY’S’6 OSKLS CTRLR1 MACYI1 30(1046) O8-NOV-77 08:S4 PAGE S93 
ll O8-NOV-77 08:30 730 SILO TEST 2 SEG 9061 


014602 012700 051416 MOV #SILOTB,RO ; TABLE POINTER 
O16 000103 MOV #67. ,RS : COUNTER 
O1Nbie 1$: CLR (Ro)4 CLEAR TOTAL TABLE 
146 1378 BNE is :BRANCH IF NOT COMPLETELY CLEAR 
: 37 042614 JSR PC, DUCLDISK :CLEAR ALL REG. 
014626 012705 o00102 MOV #66. ,RS ; COUNT 
Bise3e 0077 164772 2$: nov RO. @RHOB LOAD ILO WITH COUNT FROM O TO 65 
Giese Boies me Bann BRE 
014644 Tarue 001774 MOV SeuNIT -(SP) , ° 
014650 OSe7 18 000200 BIS #OR (SP) 
14654 7 042220 ISR PC, SPUTREG ;SAVE REGISTERS 
014660 6 7 O0171le che (SP)+, a8CSe :"OR™ SHOULD SET IR RESET 
Bi : b2 001122 MOV , #SBDADR ; SAVE Buese ADR. FAILING REG. 
Biuess doeoe? one006 ERROR a dERFLGS bce s APrER Sito’ WAS FULL 
bt aso0 12 051416 3$: MOV estrot RO BS ENT R 
014704 Ole 000102 MOV #66. ? COUNTER 
014710 017720 164714 4§: MOV DRHDB, (RO) + :READ SILO 
014714 005305 DEC RS + COUNT 
014716 001374 BNE 4g ‘BRANCH IF 66 NOT DONE 
0147 Ole700 051416 MOV #SILOTB, RO : POINTER 
014724 012705 o0010e MOV #66. .RS 
014730 o0S046 CLR -(5) 
014732 Geibe0 S$: CMP (SP), (RO)+ 
014734 Ooi 5 BEQ ;BRANCH_IF GOOD 
14736 014037 001126 MOV -(RO) B¥SB00AT *BAD DATA 
014742 011637 001124 MOV (SP). 3"$GDDAT GOOD DATA 
014746 013737 001630 o42264 MOV geRHbE JSREGADR ;FAILING REG. B 
14754 005737 OO02006 TST asERFLES :1$ THIS F TERROR? 
014760 001002 NE 6S H BRANCH 
147 104012 ERROR le : TWO ERROR CALLS ARE FOR 
014764 OO00401 R 64S : H TO AVOID PRINTING NEXT ERROR 
614766 104013 6S: ERROR 13 j THE T T. SILO 
: COUNT WRITTEN IN. 
ON RE OUT AN ERROR WAS 
‘DET TED. THE TOTAL SILO 
: is IN LOCATION 
>"SILOTB” TO THE NEXT 65 
014770 0905720 64S: TST (RO)+ HIN : es “ 
014772 O17746 164142 MOV aSWR, -(SP) *BE DONE 
014776 042716 177577 BIC #tCSWO7!SWOS, (SP) ;ONLY KEEP SW7 AND SWe 
O1s002 022726 o00200 CMP eSWO7, (SP)+ ; TEST ? 
pitts Soaste ns, fe, Resvocaso"uSRore THEN BRerc 
615012 O0830¢ : bec Re COUN 
15034 OO1L3S4e BNE S$ :BRANCH IF 66 NOT COMPLETE 


KOS 


2RIGBO, RPOY’S“6 & OSKL3., CTRLR1 MACY11 30(1046) ‘neg -77_ 08:54 PAGE 60 
ZRIGB.P11 O8-NOV-77 08:30 T31 SILO TEST 3 SEG S0te2 


2382 015016 o0S7e6 10$: TST (SP)+ ;POP STACK 


a=; 
.o 
~ 
v 


3 


SSESPRTEREBSESeRE BB 


04/S-6 DSKL§ eter at MACY 11 ate O8-NOV-77_ 08:54 PAGE 61 


ll O8-NOV-77 SILO TEST 3 SEG COb2 
01S042 004737 042614 JSR PC, JSCLDISK ;CLEAR DISK REG. 
1 LR R ;CLEAR RO 
biebe8 1s: Ne 6B 
1 8 Agusse MOV RO BRHOB :LOAD SILO 
1 2700 103 CMP ag i :67 DONE? 
1 1401 BEG ; BRANCH IF wees 
bieoee 8 1 Save RECIST 
15066 004737 O42220 2s: ISR C, a#PUTREG cA CISTERS 
01S072 737 100000 o01712 BIT sOLT, aecS2 
018109 601003 BNE 58 ‘ OE ONeH IF 
015102 010237 001122 MOV R2, a#SBDADR : FAILING TADDRESS R HCS2 
915108 0414 ERROR a0, :aTR LATE bid NOT SET AT 67TH. 
1511 1 164514 001126 3S: MOV a9s6 AT NPUT T 
015116 012737 000001 001124 MOV #149 #SGODA 
015124 37 001124 OO1le6 Cc as$GD0A ase ARE 
015134 013737 001630 O42264 MOV JeRHDB, JKREGADR FASC ING REG. RHOB 
015142 104Cie ERROR le WOR IN RHOB_ CHANGED 
tAFTER THE 67TH INPUT. 


CZRIGBO,RPO4’S’6 DSKLS CTRLRI 
CZRIGB.PLi C8-NOV-77 08:30 


¥ 
SaUe | 
= 
. 
e 
8 
q 
2 
& 


Preeere 


Bas 
Sees 
Qn 2 


bo hee 
OQNCU £WlUe-O 


¥ 
3 


? 
28 


1 

1 
a4 1 20 
4 t "3 : 7 0017le 
s! tests pout oollee 
ey 1See0 104011 

1 001630 
S486 o1szee 
ees 1$230 010110 

18232 005201 
e4es 1 Osecol 900004 
24e6 l 103373 
e4e7 1 
e4 1 

1 

1 

1 

1 

1 

1 

1 


Bae 
is 
= & 


oO 
~~ 
O0000 
= 
8 
_ 
o 
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OOOOOOO0000000 DBOCKOOO0C0O000000 2800 2000000 


Oe 0 bh heb ee  pe 


SSBARNERODSS MaAE See cae CRIT 


tv 
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~ 
oO 
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MACY11 30(1046> 
T32 


01Sese 


001124 


1$: 
2s: 


3S: 


4S: 


SS: 


O8-NOV-77 08:S4 PAGE 62 


SILO TESTY 
JSR PC, a#CLOISK 
Hoy SeUNIT « -(SP) 
kta PC ae TREG 
che i. ,aecSe 
MOV a@*SBOADR 
ERROR 
MOV #RHDB, RO 
CLR 
MOV R1,aRO 
INC 
CMP #4, Ri 
BHIS 
MOV OSRHCS2, 283S 
WAT 
.WORD O 
OR 
JSR PC, a#CLDISK 
MOV asUNIT, -(5P) 
B13 #IR, (SP) 
PC, SSPUTREG 

CMP (SP)+,a8cSe 
BEQ ag 
MOV , J8SBDAOR 
ERROR 11 
MOV a ,RO 
Moy BaP ORS 
MOV aRe,R 
MOV aRO,R 
MOV aRO,R 
MOV are, RY 

T 8OR,R1 

Q 6 
CMP 84,RS 
BEQ Ro, 
MOV » QUREGAD 
MOV #4; JeSGDDAT 
MOV RS; J#SBDDAT 
ERROR 1 
TST RS 
a Bs #REGADR 
CLR asGoony 
MOV 3, J8SBDDAT 
ERROR 


;CLEAR DISK 


it eae 
pooner 


NG RE ER ae 4 


aoe ey 


T “OR” CLEARED 
R SET 

i THEN 1 THEN 2 THEN 3 

NC NT DATA 


rv) 
H IF NOT 


:WALT FOR “OR™ 
RHC oan 


cae IN RHCS2 
ih SHOULD BE SET “O"=0 
ENS Se ac 


TR 

;FA 

* 

a ate ro 

; 5 Lo. 
Be va ANS 

:98 


IN_RHCS2 
TESy Rs NOT SET BRANCH 
LO 4 IS NOW COMPARED 


ae Barn 


Ou es 


Bom Srmp 
Sr8 


'SILO SHOULD BE ZERO 


SEG 0064 


eoRjGe-A11 OB- 


OSKL 
NOV- 


35° tetas MACY11 oa 


6$: 


B-NOV-77_ 08:S4 PAGE 63 


SILO TEST S 
;AETER THE 1One WORD PUT IN 
Cloris A DESTRUCTIV 
art a? ;SILO A DESTR TIVE READ 
MOV asUN Tas P) GET UNIT NO 
BIS ont IR (SP) ; 
MOV cS Is s4800 OORT ;GO0D_DATA 
MOV i T 
MOV Ra PH ADR ;RHCS2 ADDRESS 
ERROR :DATA LATE ERROR 


SEG SOES 


3 


OD 
oe 


PE vyE LEY yyy Bz 


PERK BsatedzZon GB 


Q000000000 


000000 


BOE ‘ 


046) O8-NOV-77 08:54 PAGE 64 


04/S’6 DSKLS CTRLR1 MACYI1 30(1 
133 SILO TEST S SEG OOEE 


O8-NOV-77 08:30 


-S8TTL MORE REGISTER TESTS 


i127 901900 MOV #STACK, SP ;RESET 
euss Ba5398 042614 ISR PT, CLOLSK : CLEAR Brak’ REG. 
4 ? 003566 MOV 83566 aR1 sk RHCS1 WITH ANY NUMBER 
2ca8 B15 146 hoy 5 (SP) ; ae NG READY TO FORM M 900 BYTE 
TSS aE oo000s MOVB ° acspie ; HOVE 3 iN NTO Dep” BYTE FO FOR RHCS1 
pol Li} 7 O0ll2e6 MOV 9#$B00A7 °T A 
B16 e 7 006766 001126 che . 'OVA! ROY, a8 T 4 RECS 1 SHOULD HAVE 6766 
S526 012737 006766 001124 MOV asec: VAIRDY, as$ T 
5534 p15735 042264 MOV BE CADR ee TER A RHCS1 
5540 10400: ERROR INTO 
id a Sl GAVE 
S542 112711 000032 1S: MOVB b NTO EVEN BYTE 
ss OL 1137 001126 MOV Sai’ SesB00AT BATA 
55 022737 O0663e 001126 CMP Se AST BURT ROY, aude T sR payout HAVE 6632 
S562 012737 O0662e 001124 MOV #4 3eiDVAEROY, P 
5570 010137 O42264 MOV RI, dsr SERICING REGISTER RHCS 1 
5574 104001 ERROR 1 A R INTC EVEN 


VING 
iBYIE. 6 OF RHCS1 GAVE WRONG 


C2RJGBO, RPOY’S “6 OLS. CTRLR1 MACY11 30(104%6) 08-NOV-77 Nag to feet 6S 
CZRIGB.P11 O8-NOV-77 08:30 T34 TEST ODD BYTE INSTRUCTION ON RHCS1 - RH11 SEG 0067 


2505 
2506 
2507 015612 27 001000 MOV BaTAack P TACK 
e208 015616 737 042614 JSR chtek any Bisk REG. 
e510 1 12711 003566 MOV one aR RHCS1 WITH ANY NUMBER 

11 1 146 MOV R1,-(§ GET TING aby TO FORM ODD BYTE 
251 156 16 INC (SP) ODD BYTE FOR RHCS1 
2513 015632 112736 ooco0s MOVB se a(SP)+ ‘nout's SIN 0 ODD BYTE FOR RHCS1 
seis 015636 011137 001126 MOV ar! , a8SBDDAT 

16 O1S642 022737 OO4766 001126 CMP #S66!0VA!IRDY, aesapoar. pPHCS) ogtouto HAVE 4766 
Sele Oleeee O1e73% OON766 OO1124 nOy tks serovarapy, austopay 
2519 015660 010137 O42264 MOV R ; a ae RHCS1 
2520 015664 104001 ERROR u >MO cor ees!" 
2521 5000 BY TE OF Si GAVE 
5255 : 
2524 015666 112711 990032 1S: Move 327: 3#4a00ar ENTO EVEN BYTE 
oS fe Pe ee ere 
2528 015714 010137 O4%2e64 MOV Rl, TPRIU AE Re Pere ER RH RHCS1 
2529 015720 104001 ERROR 1 AGaBe EVEN 
2530 BYTE, OF OF RHCS1 Cale TRRBNE 


mui 


IAEREEIE 


BR 


5 


Bente en 


: 


00 O00000 9200 920000 GN000000 
om £ 


| a aoe ob bh be ee bb ob — be 


00 
NN 


“& OSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 08:54 PAGE 66 
O08-NOV-77 08:30 T3S TEST ODD BYTE INSTRUCTION ON RHCS1 - RH70 SEG 0068 


004737 042614 JSR PC, J8CLDISK ;GIVE INIT & SETUP REGISTER CORRES 
i—_- ete aa” 7008, (Re TTING Y FOR ODD BYTE 
1 INC Sp) ise Fat, me 00 BYTE. FOR RHCS2 
i 36 CLRB ; 
1 001774 MOV SONTT -(SP)  } ies 
052716 990190 BIS 34s" si§2000 stNeY ADY” AS IT IS SET 
4 Boi ise CMP 1a e ee boAT eo ake ft TO SEE THAT 


?=CLRB™ DID CLEAR 


8 Re 
Sz or 


1 BEQ 1$ 
01 A 001774 ofi1e4 MOV SSUNIT, 28SGODAT 
052737 000100 001124 BIS #IR, #SGDDAT ;GOOD DATA 
010237 642264 MOV Re, WREGADR :FAILING REGISTER RHCS2 
104001 ERROR 1 ;CLEARING OOD BYTE OF RHCS2 
:GAVE WRONG RESULTS 
01374 001774 1S: MOV QeUNIT, -(SP) 
716 000013 BIS 8 1, SP) 
7le od20000 BIS UPE? bee} UpE MPE_IN RHCS2 
BES DES UNIT SEL 
112612 MOVB (SP) aR :MOVE INTO EVEN BYTE OF RHCS2 
013746 001774 MOV aeuNIt, - 
piszie 020110 BIS AUPE! TRIBAL ( ) 
011637 031124 MOV (SP) ae T ;GOOD DATA 
O1le37 01126 MOV aR2, deSBDDAT ; TEST DATA 
022637 O0l1le6 MP (SP3+, J8$SBDDAT Bg TO rie THAT MOVB DID 
010227 o42264 OV R2, J#REGADR jFAILING Cheers ER Rucs2 
104001 ERROR 1 MOVING A NUMBER INTO EVEN 


i BYTE OF RHCSe GAVE WRONG 
RESULTS 


“N 
~~ 


HOWTO 
on 
COoO0000 
Da a ae be pe pe pe pe pe 
oon 
a 
£o 


Hatta tt 
You z 


B33 


Q000000 


EE 9RBN TS 


e core 
823 FREE 


att 


eel aed aed ee ed ee 
Al and 


oo 


000000 
furu 


wMOoO 


/ T MACY11 30(1046) O8-NOV-77 08:54 PAGE 67 
O8-NOVes? OBS aS ‘ T36 TEST ODD BYTE INSTRUCTION ON RHCS2 SEQ 0069 


012706 001000 MOV #STACK, SP ;RESET STACK 
R PC, CLOLSK LEAR DISK REGISTERS 
B35 M4 rte nov astiic, Ra ir NOW {2 WORE COUNT REGISTER 
pibiie OS Be, fay BAR pera ng Fone gop pre 
lle 3 000377 nove 8377 . ac P)+ i HOVE 77 IN 0 ODD BYTE OF RHwCc 
Oee737 004228 001126 cue ' 77652, @8SBDDAT ; C R 10 SEE IF MOVB DID OK 
012737 177652 001124 MOV 8177652, wscooar’ “Goce para 
4 r sREGISTER FAILING RHWC 

oad, — ERROR | 3 enon OVINE. Iht0~ O66 Br OF RHWC 

: MOVB #123 aRY ROVE NTO EVEN BYTE OF RHWC 
bici3 nee ” HOV Sag asSBDDAT : TES bats 
bisra, irress 991186 ROY 4157858: BEEEDBET coo ara 
B1543° b423e% MOV ’ "@BREGADR ;REGISTER FAILING RHWC 
104001 


FO6 


CZRIGBO,RPON/S-6 DSKLS_CTRLRL MACYI1 30/1046) O8-NOV-77 08:54. PAGE 68 
3GB.P11 | O8-NOV-77 0 13? ODD BYTE TEST ON RHWC SEG 0070 


2592 
2593 

Seqe 

2596 016226 012706 001000 MOV sSTACK, SP ;RESET STACK 

2597 016240 004737 042614 JSR PC, CLOLSk 

eo38 iped4 913704 & MOV sRHBR, 4 Rd HAS ADDRESS OF RHBA 

2s i 12714 3 MOV #25253, aRY iL 

2600 016254 010446 MOV RY (SP) GET S005 Br Y FOR ODD BYTE 
2601 O1 6256 d0S2 6 INC (SP) nae VTE ADR. oF RHBA 
2602 O1 12 000377 MOVB 8377 a(SP)+ i408 

2603 016264 01143 001126 MOV ORY, D8SBODAT 

2604 016270 2737 1776Se 001126 CMP #17765e, #SBOOAT;€ Rove RESULTS 

260S 016276 1406 BEQ 1 H IF GOOD 

2606 016300 b1e73 177652 001124 MOV 8177682, @eSGDDAT; dA A 

2607 016306 010437 O42264 MOV RY "@BREGADR’ ; FAILING REGISTER RHBA 
2608 O163le 104001 ERROR 1 ;MOVING INTO ODD BYTE OF 
2609 :RHBA GAVE RONG RESULTS 
2610 016314 112714 000125 1S: MOVB #125 

2611 016320 011437 001126 MOV a yi Test DATA 

e612 016324 2737 177524 001126 CMP a5, degeb0ar 

2613 016334 012737 1775204 OO11e4 MOV si775e4, oescppAT; GOOD DATA 

2614 016342 010437 O42264 MOV R4 "@SREGADR ; FAILING REGISTER RHBA 
2615 O16346 104001 ERROR 1 iROVIN NG INTO EVEN BYTE OF 
2E1E RHBA GAVE WRONG RESULTS 


-Zz 


PO4“S’6 OSKLS CTRLR1I MACYI1 30(1046) -NOV-77 08:54 PAGE 69 
1 O8-NOves? 08: 30 #48 Teer 000 byte iNSTRUCTION ON RHBA SEG 9071 
-SBTTL OCL COMMAND TESTS 


; ee FOUR GENERAL REGIST WILL BE RESERVED FOR HARDWARE 
; ee neon 1 CONTROL Eno STATUS 


: ee Re= T te STATUSe 
;e R3=RHDS1 DRI TATUS 1 
rT R4=RHER1 ERROR REGISTER! 
ee WHENEVER ANY OTHER USE IS MADE OF THESE REGISTERS 
eee APPROPIATE SAVING MUST BE DONE 
;## ERROR REGISTER #01 (RHER1) T 
; ee BIT #1 (ILLEGAL REGISTER) CANNOT BE TESTED ON PDOP11 THIS BIT 
+e IS FOR POPIO USE ONLY 
16352 012706 001000 MOV sSTACK, SP sRESET STACK 
16364 004737 O42614 JSR PC, aSCLOISK :CLEAR REGISTERS 
16370 012777 900001 163262 MOV #0MD, IRHMR :SET DIAGNOSTIC MODE 
16376 BAe a59 2 CLR ae TMPILL :GET READY TO MAKE ILLEGAL FUNCTION 
16402 012700 42 1S: MOV aF TABL , RO ?LOAD UNCT ION C TABLE START 
16406 16705 21 MOV #17.,.RS ‘COUNTER (16 G UNC TIONS ) 
16412 0237 002022 2s: CMP DeTMPILL,(RO)+ 31S THIS A LE FUNCTION CODE? 
teas8 83993 ooooo2 oz0z2 ea #2, J8TMPILL TOO OE eR NECTION CODE 
16426 65 BR 1$’ i TEer FT ENC TION CODE 
16430 3S: DEC RS : MAK XT CODE IF 1ST I 
ibe NOT D 
16432 001367 BNE 2s ‘BRANCH IF 16 NOT COMPLETE 
16434 032737 000100 o02022 BIT #100,dsTMPILL ALL BITS TO BIT #S COMPARED? 
1euag Bn a049 022 002104 coe eS HPILL aWILLEGL.HO - feat THE ILLEGAL FUNCTION 
164S2 823335 ite 2 Od020e2 ADD oe JaTMPILE ; TEST NEW FUNCTION CODE NEXT TIME 
16 004737 042614 4S: JSR PC, J8CLDISK 
16464 012777 000001 163166 MOV ’ HMR ;SET DIAGNOST 
16472 013711 O02104 MOV asILCEGL, aR1 TE epAL FUNCTION ---> RHCS! 
16476 012737 O16460 001110 MOV #4$ dust P RR :ERROR RETURN POINT 
16508 004737 042220 JSR PC gaPu REG : SAV G TERS 
16510 005737 OOI716 TST at ; THE NOT BE ANY ERROR YET 
16514 001403 BEG S$ CONT NUE R1 STILL = 0 
16516 910437 oOOl11z22 MOV RY, JsSBDADR jEAIL GISTER ADDRESS RHERL 
16522 i04C11 ERROR 1 AN ILLEGAL FUNCTION 


QOo00000000 OODO00 DOOO0D000000 


G T RHERI1 SHOULD BE 


A TOON BOVED INTO RHCSI 
NO ERRORS eMatnie SHOW TILL 
:GO IS SE 
:ALL ZEROS 


CZRJGBO,RPO4’S-6 DSKLS CTRLRI MACYiI1 30(1046) O8-NOV-77 08:S4 PAGE 70 


CZRIGB.P11 08-NOV-77 08:30 TH TEST ILF BIT #O IN REG. RHERI SEG C072 

speg 016524 052711 cOoo00! S$: BIS aco aR1 O IN RHCS1 
2675 016530 004737 O42220 ISR C, JePUTREG i Gove REGISTERS 
2676 016534 022737 000001 001716 CMP WicF ORERI nie FUNCTION BIT SHOULD BE SET 

7? O16 42 B01403 BEQ c N 

78 O16544 610437 OOll2e2 MOV 4, J#SBDADR AILING REGISTE ADDRESS RHER1 
2679 016550 104011 ERROR 11 E a UNC ON NOT 

sea 76 Hae Ptuega FoNera0n 
ee8e ‘bad 18 t He Het N RHC 

2684 O0165S2 013746 001736 6S: MOV as0S1, <iSP? ;GET RHOS1 
2685 016556 O4e716 001000 BIC #PROG’ (SP) :MASK PROG 

2686 O16562 O22726 140700 CMP SATATERR! Vv! DPR! DRY (SP)+ 

2687 ; ATTENTION (BIT 15) 
26 :VOLUME VALID (BIT 6) 
2689 :COMPOSIT ERROR (BIT 14) 
2630 i DEVICE READY {err 7) SHOULD 

sega 016566 001404 BEG 7$ : THEY ARE Cc +1nuE 

2633 C1b520 013727 001662 001122 MOV SSRHOS!, , J8SBDADR pEAILING REGISTER ADDRESS RHOS | 
se . Hf Hi i SHENG TION 

ce EombstD eho {Bir 19 

= ; 

698 :MEDIUM ON LINE (Bit 12) 

3698 :DEVICE READY (BIT 7) 

701 O1660 4737 o4sOSH 7$: PC,aaM ;GIVE A WRIT R_AND 

g C ocO4737 9O4S0 $ ISR C, J#MIDDLE BAY Go ay nat 
2703 ;CLEARING T ORS 
5 be vote  MABOLE ergo THe PORE 
2708 fe ct ONE BB OuT ITS 

? 16604 010237 & MOY R2, a#10$ 

5508 Bleeia dante Peele ney ai "BHeSe, ADORESS 

2710 Ol66ie o00000 108: .WORD O ADDRESS OF RHCS2 
2711 O16614 91000 MXF 

e7ie 016616 004737 o42220 11S: JSR PC, JSPUTREG one REGISTERS 
e714 Ol6622 032737 o4O000 001714 BIT #TRE,aecs! ; TRANSFER RROR (BIT is) RHCS1 - ‘TRE’ 
71 166 fs) BNE 3s i - CON if 
5515 pi eeae BO4oS3 001122 MOV Ai awseDAOR alt NG REGIST TER RH HCS1 
2718 Cl16E3E 104011 ERROR 11 NSFER ERROR (er 14) ) BHCS! - ‘TRE’ 
e726 snout se5pee RESURN PoINt 
c 

eree ClEEYO OCDEED 13$: BR 1$ i BACK & TEST NEXT FUNCTION CODE 
e7e4 Olee4e cOce4O 12%: NOP 

e72e 
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CZ2RIGB 
E2RIGB.P11 O8-NOV-77 OB: TEST ILF BIT #0 IN REG. RHERI SEG GO72 
e728 016646 012706 001000 MOV #STACK, SP ;RESET STACK 
3730 016660 004737 O42614 ISR PC, J8CLDISK ; INIT AND SET GENERAL REGISTERS 
2738 :*#FILL ALL POSSIBLE BITS WITH ONES 
2734 O1bs64 012777 177777 162740 MOV #177777, 9RHWC  ;WORD COUNT REGISTER GETS 177777 
2735 016672 010777 177777 162734 MOV 8177777. dRHBA };BUS ADORESS REGISTER GETS 177777 
2736 016700 012777 017437 162736 MOV $1g37: Sees j DESIRED ECTOR TRACK GETS 17437 
2737 016706 Ole7 163 7 162734 MOV #163 ? : OFF GISTER GETS 16277 
2738 016714 012777 000777 162730 MOV ; DESTRED YLINDER GETS 777 
2739 016722 012746 001400 MOV sale! 17, A sp) :GET BIT 9 AND & 
2740 016726 053716 002102 BIS OsREADIN (SP) 
2741 016732 012677 162702 MOV (SP)+, JRHCSL ;FILL READ IN PRESET IN RHCS1 
erie 016736 012777 OOOOOl 162714 MOV #DMD , SRHMR :SET DIAGNOSTIC MODE 
2744 *THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
2745 O16744 004037 043306 isp RO, a#SAVER ; SAVE 
2746 O16750 001632 RHWC : FROM 
2747 016752 003154 REINTO TO 
e74e 016754 O00021 ‘NUMBER SAVED 
2750 *GIVE READ IN PRESET COMMAND 
e751 O1675& 052777 O00001 162654 15 #GO, JRHCS1 ; INCLUDE GO TO READ IN PRESET 
2753 -#NOW SAVED REGISTERS WILL BE CHANGED TO EXPECTED VALUE 
2754 016764 005037 003166 éLR ae #REIN TO+le “CLEAR SAVED RHOST 
8755 016770 042737 016000 003172 BIC aFMTee!HCIieEc!, abneiNtosic. CLEAR FMT22,HCI,ECI IN 
2757 016776 052737 000100 003172 BIS DeREINTO+16 SET VV_IN SAVED RHOF 
e758 017004 005037 003174 CLR Sent INT Ose0 ‘CLEAR SAVED RHCA 
2760 ;*#AFTER A READ IN PRESET COMMAND 
e761 teSAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
2763 017010 O04037 043206 JSR RO, a#SAVER i SAVE 
2764 017014 001632 RHWC ROM 
2765 917016 9002110 WRF ROM :TO 
e756 017020 o00021 17. ?NUMBER OF REGISTERS SAVED 
2768 ;#AS UPPER BY c CHANGING IN A DUAL PORT 
2763 {SOPeRAT ION STE UP oUbPE eRe TE RHAS WILL e SAVED aS 1S 
2770 ARES ARE 0 D FOR THE LOWER BYTE 
e771 O17022 113737 003201 002135 Agee 7 HAT AREINTOOeS. SRURFROM*SS; SAVE UPPER RHAS 
2772 ;#COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
e774 :*#WITH AFTER COMMAND 
2776 017030 004037 043510 JSR RO, a8COMPAR 
2777 917034 003154 REINTO eR RBSFFER 
2778 0617036 002110 WRFROM _BUFFER 
27739 017040 900021 17. REGISTERS 
2760 617042 017050 1$ RE TORN Por ERROR 
276i 917044 6170E6 18 : SAME 


OO 


RPO4 /S / os OSKLS CTRLRI MACY11 30( 1046) 
08: 30 THe 


ot O8-NOV-77 

017046 017070 
017050 013705 
017058 pt 3cpe 
017056 016537 
017 oe8 104001 
017066 000207 
017070 


047620 1$: 
001630 O42264 


es: 


O8-NOV-77 08:S4 PAGE 72 
READ IN PRESET 


2% ;RETURN FOR GOOD COMPARISON 

MOV J#ERWORD, RS ;GETTING READY TO INDEX 

ADD SUBLE ER D 

MOV RHUC-2(RS), aeREGADR fang. REG. ADDRESS 

ERROR sREAD IN. N PRESET CAUSED IMPROPER 

RTS PC SRETURN FOR HP URTHER COMPARISONS 
;NO ERRORS 


SEG 9074 


CZRIGBO,RPO4’S’6 DSKLS CTRLRI 
CZ2RIGB.P11 O08-NOV-77 08:30 


38 


ONONONCNO0N0000000000 


ua 
WONMUS Wwe O 


3 


ee ee he ee 
NNNNNSNNANNNNSNSISY 
Seer enerenen ae miuemsenenenenin 
PEVOTNTOR LUO MEMES 


017170 


NNNNNN 
rrvrrrr 
be bes 
or 


yp ghoh] tu 
TORN SRE 


C0000 O0O00000 
NNNN ON 


ne ae ee he eo Be Gee ee Bee 


oO 
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N 
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113737 


MACY11 30(1046) 
T4e 


4 
eigtatert 162546 


mois; 
1536 
000021 
1S: 
66e 017160 
017166 
001 
es: 
3$: 
043306 
001733 002135 
043510 
047620 4G: 


001630 O42264 


O8-NOV-77 08:54 PAGE 73 
READ IN PRESET 


“START WITH CLR_IN RHCS2 (BITS) 
is Pc aac sCLDISK ;CLEAR ALL SIBLE BITS 
MOV r) ; DIAGNOST C MO 
MOV JSNOPERA, aR1 ;PUT = IN RHCS1 
MOV @RHWC.R : STARTING 
MOV ac R3 : START OF WHERE SAVED 
MOV BRHEC2-RHWC+2/2,R2 ; ISTERS 
MOV te (R3)+ : G 
DEC : COUNT 
BNE :BRANCH IF_NOT COMPLETE 
MOV eRHOS;, ,a82S i GET : OF DRIVE STATUS 
MOV GET RHCS1 
BIS ie aR1 :GO TO RHCS1 
WAT : WAIT FOR DRY IN RHOS1 
.WORD O : ss DR STATUS RHDS1 
ORY :ORY WILL BE WAITED ON 
T ; WATT FOR ROY IN RHC HCS1 
WORD O :ADORESS OF RHCS1 PUT HERE BY AN 
sEARLIER MOV 
RDY :RDY WILL BE WAITED ON 
*#AFTER A NO OP COMMAND 
t¥SAVE REGISTERS AGAIN SC THAT COMPARES CAN BE DONE 
JSR RO, J8#SAVER : Save 
RHWC FROM 
WRF ROM 
17 1D oan OF REGISTERS SAVED 


#AS UPPER BYTE OF RHAS on BE CHANGING in 8 OUR goer 
 xOPERAT 


TON UPPER BYT OF RHAS B10 FoR s 1s 
:#SO THA THe He Ue OR. TRE VEO WER BYTE 
Move D8AS+1, ISWREROM+ 5 Save UPPER ROA 


*COMPARE REGISTERS BEFORE NO OP COMMAND 
i xWITH TER COMMAND 


JSR RO, d#COMPAR 

Wi Oe Be FER 

WRF ROM 

17. UMBER OF REGISTERS 

4$ RETURN FOR ERROR 

4$ ; SAME 

S$ ;RETURN FOR GOOD COMPARISON 


MOV @sERWORD,RS ; GETTING an 2. TO INDEX 


ADD RS, RS ‘DOUBLE ERR 
MOV RHIIC~2(R5), QBREGADR ;FAILING REG. ADDRESS 

ERROR ;NO OP COMMAND CAUSED IMPROPER 
RTS PC RE TUR RN FOR FURTHER COMPARISONS 


SEG 0075 


Ae 
gus by 


ve) 


® 
& 


aay 


o 


Ss 


wr 


BSBS 
“ 


SPPEPEPEPER ELT Ly LLL RERERE 


: 


a 


: 


RPO4 “S- K pte MACY11 30(1046) O8-NOV-77 08:S4 PAGE 74 
$58-NOV= 50 943 NO OPERATION FUNCTION Test SEG O07E 


Pll -NOV-77 O8: 
017252 S$: ;NO ERRORS 
? 737 017260 001110 MOV #14$,98SLPERR ;SET SCOPE LOOP TO 14 
pilses pis35 eat 14S: JSR Pe iatee DISK HTN T ob es Bey ALL ZR ZERO. Vy 2sr 
017264 012777 OO00001 162366 MOV 


;#NOW START WITH ALL ONES IN ALL. POSSIBLE REGISTERS 


727, 7 MOV ss FIRST REGISTER 
ol7ere Oleros obase; a ese eg Ml oY oe 
§15308 p1s330 001774 162322 ] MOV UNET oR aicee" 4 Sat N R _PNOER TEST 
17314 DEC R if 
617316 rea BNE Ae ine Hee NCOMPI. ETE 
13354 13709 nytt Mov SAHC, RO" — Li Nor Reg ee 
17350 Gieros O070e Roy BARD ascaave eka : ie ae OF HERE. SaveD 
17349 B3838 7$: NOY pe. those . 
1 1 BNE oe F NOT COMPLETE 
017 0137 001662 017366 MOV a SRHDSI aui0S =; GET S OF OF DRIVE STATUS 
17354 Ol 1 017374 MOV R1 osiis iG + oe 
p12 3e0 Ba4 te os bre = aera te 
bt 36 10S: .WORD O pas ORlve’s Status RHDS1 
615359 eat ory : WAIT nich BB y ater 
017374 O000 118: .WORD O 8 5 OF OF RHCSL Riis HERE BY AN , 
017376 ocoz00 RDY SRDY WILL BC WAITED ON 
;#AF TER A NO OP COMMAND 
:#SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
017400 004037 043306 JSR RO, J#SAVER AVE 
Bizwoe Opetio UR ROM sEROR 
017410 000021 17 :NUMBER OF REGISTERS SAVED 
UPPER ByT OF RHAS CAN CHANGING IN A DUAL PORT 
RATION UPPER BYT RHAS WILL BE SAVED AS IS 
i s0P THA We PRES A ONLY VALID FOR THE LOWER BYTE 
017412 113737 001733 002135 hove aeAS+1, SOLIRE ;SAVE UPPER RHAS 
#COMPARE REGISTERS BEFORE NO OP COMMAND 
WITH AFTER COMMAND 
74 7 c RO, J#COMPAR ; COMPARE 
Bi pass heard nites den vanes :GOOD BUFFER 
017426 002116 WRF ROM :TEST BUFFER 


ZRJGBO,RPO4’S’6 OSKLS CTRLRI MACY11 30(104%6) OB8-NOV-77 08:54 PAGE 75 
CZRIGB.P11 O08-NOV-77 08:30 T43 NO OPERATION FUNCTION TEST SEG 0077 

2305 017430 000021 17. ;NUMBER OF REGISTERS 

2908 017432 017440 12s :RETURN FOR ERROR 

Bide Bi des 1$3 ; ETURN FOR GOOD COMPARISON 

2310 O17440 0137) 047620 128: MOV Q#ERWORD, RS ; GETTING READY TO INDEX 

2911 O17444 S ADD j DOUBLE E WORD 

2912 46 016537 001630 o42264 MOV RHWC-2(RS),a#REGADR ;FAILING REG. ADDRESS 

2913 O174S4 104001 ERROR 1 ; oP c AUSED IMPROPER 

eid :R Gist B chan 

egis O174S& 000207 RTS PC iR N FOR FURTHER COMPARISONS 

2917 17460 13$: ;NO ERRORS 


cenieee oe 78/6 Bm TRLR1 8 MACYI1 a A 4 046) O8-NOV-77 08 SRCT ton test 


ll O08-NOV-77 08:30 NO OPERATION SEQ 0078 
ee 

1746e 0127: 1000 MOV aSTACK ;RESET STACK 

17474 73 Baeei4 JSR PC, gecl ISK ‘SEF REGISTERS AND CLEAR 
e5c3 ;*FILL ALL POSSIBLE BITS WITH ONES 


12777 177777 
12777 )=177777 
177777 


; 3s STER SS F goon 
ease aeMae eae 2077 


: ene ke spares erie 1476 
TER 2 
: ie 


ot ny Le meee IAINTENBNCE RECTSTER 


ay 
Se 


3 
ne 


Oo0000000 
be he be 
fururoru 
W 
WS 
a 
368 
Dn ee be ee ee 
RRR 
SS 5 eer 
fOrmMaru 
Fofototo} 
<<<< 
Seeeaneaca 
Se eres 
ae £ ¥ 
RESERERNS 
> ae 


;*#THIS SETS BITS FOR ALL PRESENT DRIVES 


2333 
2934 
Sans 
Be 

1 
ese 017616 013 002020 MOV STOTALAT,RO PRE 
seis BITES. pugrme ae? SELL ESOESE Lenny ort 
Sie 1 phe 000010 MOV #8.,RS Pa cer ett 

1 30S: ROR ¥ a? edd 
Sau 17es6 BCC 31$ T ON THIS BIT 
1 12714 = =177777 MOV #-1,9R4 stad fe ERROR "REGIS STER TO SET ATA 

2348 017640 le 318: INC aR UNIT FRO. 
cea fies OB. a 5 ome 
See, 176 790 B ONTI nue THIS ROUTINE 
esse 0176 13746 001774 27S: MOV @BUNIT, -(SP) 

3 8176 4 718 1$7010 BIS #187010, (SP) ;REINSTATE SET BITS 

2 17660 01261 MOV (SP)+,aR2 ; 
e356 
2957 17e6s 12777 000001 161770 MOV #OMD , IRHMR ;SET 
e958 BIze B15911 002050 MOV @8OCLEAR, IRI ;ORI CLEAR = 10 INTO RHCS1 
e9s3 yf Tad Bos? ih 00000 BIS GO, Rl 
S30 17700 0127 0016 MOV » RO :RO CONTAINS ADDR. OF ADDR. OF REG. 
soos 


;#DATA BUFFER REGISTER 


rm 
R 
UP 9 


;#WORC COUNT REGISTER 


;*BUS ADDRESS REGISTER 


3 
NINN 
Wh--OwW 


ole) 


<2RISBO, PPOY/S “6 AB ee | CTRLR1 MACYLI 396 1046) oftve tea 08:S4 PAGE 77 
ZRIGB.P11 08-NOV-77 08:30 44 VE CLEAR SEG 0079 
eg 


; *CONTROL AND STATUS 2 REGISTER 


Barcus 86 


Bowws 


;#CONTROL AND STATUS 1 REGISTER 


a 


005737 od20u0 6$: TST 2SNUNIT ;ARE THERE MORE THAN ONE UNIT 
001404 BEG 3e$ : BRANCH if ONLY ONE UNIT 
12737 104210 01124 HOV aiv210, ,9#SGDDAT;GOOD DA 

2926 012737 04210 001124 32%: MOV #4210, a8SGDDAT ;GO0D DATA 
2387 013037 001126 23S: MOV 3(RO)+,a8SBODAT ; TEST DATA 
2989 920072 023737 001124 001!26 CMP Q#SGDDAT , I#SBODAT; COMPARE DATA 
2990 020190 00140e BEQ 7 sBRANCH IF GOOD 
2991 920102 004737 oO20564 JSR PC, JBERCLFC :JUMP TO ERROR FOR CLR BIT S 
2992 :IN RHCS2 
Saga #ERROR 1 REGISTER 
eegs ‘ 
2936 
e937 :#DESIRED SECTOR/TRACK REGISTER 
2939 
3009 ;#ERROR 2 REGISTER 
3001 
3603 *#OFFSET REGISTER 
3004 : 
300 ;#DESIRED CYLINDER ADDRESS REGISTER 
3b08 
3009 ;#ERROR 3 REGISTER 
3017 
3018 ; #ATTENTION SUMMARY REGISTER 
3014 02031 13737 002020 001124 ISS: MOV aT TALAT, ae T;SET ALL BITs OF DRIVE PRESENT IN RHAS 
3015 5325 §43535 002016 Bt iss BIC 3, ATTEN BSc0DRT ;CLEAR ONLY WORKING DRIVE BIT 
2016 013037 001126 MOV 2 bBs050" GET HA 
301 0336 123732 001124 001126 CMPB eSc0DA , J8SBDDAT : COMPARE DATA 
3018 0 1402 BEQ eG :BRANCH IF GOOD 
3019 O20342 004737 o20S64 JSR PC, a#ERCLFC : JUMP TO ERROR FOR CLR (BIT S) IN RHCS2 
3054 ; #MAINT TY TER 
3021 INTAINABILITY REGISTE 
3023 
3028 ;#DRIVE STATUS REGISTER 
3026 0374 012737 000700 001124 178: MOV #700, aS T ;G0 0. pata FOR PRINTOUT 
302 C2 013046 MOV STROSS Sopp GET 
3028 020404 011637 001126 MOV ocr dbsBBDAT EST 
32029 020410 O42716 0601000 BIC #PROG, (SP) : CLEAR OGG BIT 


CZRIGBO, RPOS/S“6 OSKLS CTRLR1 MACYL1 30(1046) QB-Nov-77 08:54 PAGE 78 
yates Pil 08: 30 THY DRIVE CLEAR 


a 


3035 


3049 


GeRRTERP RUE ONIUDROESS 


O08-NOV-77 
020414 Oe2e726 000700 CMP #700, (SP)+ ; COMPARE DATA 
BSo482 Bo4795 020S64 9E8 Bes oeercirc : GRANCH TE 4900 FOR DRIVE CLEAR 
;#ORIVE TYPE 


O20SSé6 


020560 


020562 
O20S64 
020579 
020$72 
020574 
O020S7€ 


00S720 


005720 


014037 


104001 


005720 


000207 
005728 


;*#SERIAL NUMBER REGISTER 


;*ECC1 POSITION 


;#ECC2 PATTERN 


; *LOOK-AHEAD REGISTER 


24s: TST (RO)+ A “AHEAD Ri CANNOT BE PREDICTED 
99 fe BE SHOR HECKED RES e AN INIT 
;#CURRENT CYLINDER ADDRESS REGISTER 
2ss: TST (RO)+ ;AS_ THE aGURRENT CYL REG. CANNOT BE PREDICTED 
:AFTER AN INIT IT IS NOT CHECKED 
ets: 
O42264 ERCLFC: MOV -(RO), @REGADR Regia GISTER ADDRES 
ERROR 1 AS 0 iN RHE 1 DID- 
iN R fee EXT TRA a errs 
TST (RO)+ #UN0G = 
RTS PC ; RE URN 19. GOVE PROGRAM 
;OR CLEARED EXTRA BITS 
TST (RO)+ :UNDO -(RO) FOR BAD DATA 


SEG 0080 


CZRJGBO,RPO4’S’6 OSKLS CTRLR1 MACYI1 30(1046) O8-NOV-77 08:54 PAGE 79 


CZRIGB.P11 08-NOV-77 08:30 THy DRIVE CLEAR SEG coe! 
3069 
307 
? 4 000 MOV aSTACK, SP T STACK 
3073 Be 84 AEs JSR pe osctB ISK IN yo ris GENERAL REG. CORRES. 
3075 020632 012777 000001 161020 MOV #DMD , IRHMR : 
3078 tangs st Sof WITHOUT MOL a 
3078 40 005077 161000 CLR QRHOST Aire BE RED SECT Cee TOR 


GER Tee thten 
Oepeus Bisee? Odenzs 160766 mov SESRECOMABAHCSI L980 SEEK, CONRAD MMAND INTO CONTROLLE 


5 BF OL OWING ARE TWO BLOCKS OF C TO LOAD RHCA WITH THE PROPER 

3% SS DEPENDING UPON WHETHER THE DRIVE IS AN RPOG OR RPOY 
O6S6 S737 002036 TST @eRPO6 ;MOVE DRIV FLAG TO ITSELF TO TEST 

Beoees O0I4i6 iis TREAT THE ai sealer 


$ TREAT THE DRI 


PERRPERER Ee 


022726 001456 CMP ug14., (SP)+ i NTC hinoe S e814. ? 
020670 001404 BEQ g BORK RCA 813. 
020672 012737 oO014S6 001210 nov #614. , JUSTMPS As F yes MAKE RHCA = 814. 
aad ened 0014SS 001210 9S: MOV #813. aSTMPS RHCA = 813. 
020710 013777 OO1210 160734 10S: MOV as Finpe Sauce ee TRED grt NDER 814. , OR 813. 
6020716 900415 BR 14$ fe GISTER 

Ret THE ORI i 
020720 9227 000632 11S: CMP #410. , (SP)+ NT cyL R Cane CA AS 410. ” 
ge07e4 14 BEQ 12$ S a MAKE RHCA = 409. 
020766 o1e7 000632 001210 nov “4 0. ,aeSTMPS : i Y TO MAKE RHCA = 410. 
020736 012737 000631 001210 12S: MOV #409. gestips GE READY TO MAKE RHCA 409; 
020744 013777 OOl2i0 160700 13S: MOV aeSTMPS, IRHC ;MAKE DESIRED CYLINDER 410... OR 409. 
;#SAVE REGISTERS FOR COMPARISON AFTER GO 

004037 043306 14S: ISR RO, J#SAVER ; SAVE 
020756 001632 RHWC >FROM 
07 003154 REINTO >TO 
07 0023 13. *NUMBER OF REGISTERS SAVED 


;#GIVE GO TO COMMAND 
020764 052777 OO00001 160646 61s #GO, IRHCS1 ;GO0 TO COMMAND 


020772 052737 000001 003162 BIS #GO, JHREINTO+6 i SOMED 'R 
921000 052737 20000 003204 BIS pit #REINTO+ Aves RHO 
021006 O4e737 O000e00 003204 BIC #REINTO+ RHOS 1 


ODO NTN EWN OBB LOWES 


WWWWWWWWWWWIWWWWWWWWWWWWWW 
+ 0 es a eb he 
TUTUM 8 he 


turu 
wt 


;*AF TER GO HAS BEEN GIVEN FOR SEEK COMMAND 
:#SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 


Cals 


be be be be be pe pe pe es Be fn Bo pe he be Be Be Be ee 
£ 65 é SLL 
OOnNoOU 


O07 
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EGUHSBOVERZORHBBBVER BS 


Pll 08-NOV-77 08:30 THs SEEK COMMAND TEST SEG O0ee 
;*BE DONE 
021014 004037 043306 JSR RO, J#SAVER ; SAVE 
021020 001632 RHWC FROM 
O2102e2 002110 WRF ROM :TO 
021024 9000023 19. ‘NUMBER OF REGISTERS SAVED 
#8 PER BYT OF .RHAS CAN BE CHA CHANG NG IN A DUAL PORT 
ATION T R BY WILL E SAVED AS IS 
1350 THAT THE oP ES ARE ONLY VALIO FOR THE LOWER BYTE 
021026 113737 003201 002135 MOVB DRE INTO+25, ISWRFROM+2S; SAVE UPPER RHAS 
*COMPARE REGISTER FOR K COMMAND 
WITH CENTENTS EP feR Go Fs fesur 
021034 004037 043510 JSR RO, J#COMPAR ; COMPARE 
021040 003154 RE INTO ; GOOD BUFFER 
021042 110 WRF ROM :TES FER 
021044 3 19. ; 
021046 O21054 1$ : FOR ERROR 
O210S0 021054 1$ : 
021052 021074 2s ;RETURN FOR GOOD COMPARISON 
021054 013705 047620 1$: MOV sERWORD, RS TIING Y TO INDEX 
021060 Oo60505 ADD Rete UBLE ERROR WORD 
621062 016537 001630 o42264 MOV RRtic =2(RS), sure ci bout ;FAILING REGISTER ADDRESS 
021070 104001 ERROR 1 ; IMPROPER REGISTER CHANGE 
:AFTER SEEK COMMAND 
:WITH GO IS GIVEN 
021072 000207 RTS PC :RETURN TO COMPARISON 
;#NOW GIVE INIT AND GET GO AND PIP DOWN 
021074 952712 o00040 2s: BIS #CLR, aR2 RH INITILIZE 
G21100 013712 001774 MOV asUNtT 1,982 SE "Baan — UNIT NUMBER 
021104 012777 O00001 160546 MOV #OMD , ak AGNOSTIC MODE BIT 
S COMMANDS WITHOUT MOL 
+ AND S etpee HLA FROM MOVING 
;#CHANGE REGISTERS TO EXPECTED VALUE 
021112 042737 000001 9003162 BIC #G0,a +6 ;SAVED RHCS1 
021120 042727 O20000 903204 BIC spar ae ON 9430"; SAVED RHDS1 
Oelle6 052737 O00200 3204 Ss NT0+30 VED RHDS1 
021134 017737 160534 O03e16 MOV et 0742: D RHLA 
021142 013737 O01210 003220 MOV ass ty ae PInTosaa ;SAVED RHCC 
;#AFTER INITILIZE SAVE REGISTERS SO THAT 
:#COMPARES CAN BE DONE 
021150 004037 043306 JSR RO, 8SAVER ; SAVE 
021164 01632 RHWC : FROM 


3206 
3207 


TOROFOFOFORORD 


he at ne ae pe bm pe ee 
DO VON £wror-O DD 


Rororororure 
s 


ete 
BBe 


SUTUNIND 


PORBAOFORD 
ire 


ws 
turoru 
ine 


O,RPO4’S’6 DSKL 
Pll 08-Roves7 


021156 002110 
Oe1i60 000023 


021162 113737 


Mr bee 
BoL3 

= UT) 
wort 


REAR RAR RARE 
fururufy fur 

teen BOS 
8858 gm 


021274 7 
Bisce 086737 
021210 042737 


CTRLR 
08:3) 


003201 


043510 


047620 
001630 


042614 
000001 


002072 
160376 


043306 


000001 


000001 
020000 
000200 


MACY11 — 


002135 


042264 


160416 


160370 


3$: 


4S: 


FO? 


O8-NOV-77 O82? :S4 PAGE 81 
SEEK COMMAND TEST 


WRF ROM ;T0 

19. ;NUMBER OF REGISTERS SAVED 

;*#AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 

; OPERATION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
;*SO THAT THE COMPARES ARE ONLY VALID FOR THE LOWER BYTE 


MOVB OSREINTO+2S, I#WRFROM+2S; SAVE UPPER RHAS 


; *COMPARE REGISTERS AFTER INITIALIZE 
JSR RO, d8COMPAR 6000 BU 
REINTO 900 BUFFER 
ie FER 


OF REGISTERS TO BE 


33 Pits POINT FOR ERROR 
4§ RETURN POINT FOR GOOD COMPARISON 


MOV QEERYORD, RS GE TAING aha TO INDEX 


Add 
MOV Rrue=2CRS), le mtorns ils REGISTER ADDRESS 
ERROR 

fort rs R GIVING AN 

SEEK ¢ Lice LOWING A 
RTS PC TO COMPARISON 

$6000 COMPARISON 

JSR PC, a#CLOISK ee ne ey ve GENERAL REG. 
MOV #0MD , JRHMR 2 BIA OSTiC NODE ett 

His OMMANDS WITHOUT MOL 


HLA FROM MOVING 


MOV BEE ECON, OSL ;19@ EK COMMAND INTO RHC 
CLR ;DESI CYLINDER ADDRESS 


“SAVE REGIST RS FOR COMPARISON AFTER GO 
cr RO, a#SAVER AVE 

RH ALC : 
REINTO 


: NUMBER OF REGISTERS SAVED 


-#GIVE GO TO SEEK COMMAND 
BIS 8GO, JRHCS1 ;GO TO SEEK COMMAND 


;#CHANGE SAVED REGISTERS TO EXPECTED VALUES 
BI #GO eT Sets ; SAVED RHCS1 


BI #PIP, J#REINTO+30° ;SAVED RHDS! 
BIC BORY! DBREINTO+30 : SAVED RHOS1 


SEG O0E3 


C2RIGBO, RPO4’S “6 
C2R 


GB.P 11 


021330 


tes ea 


SERRRRRRRRE 
eta 


Ww 


“oO 
ve 


0e1450 


113737 


: BB 
ted =) 
UT) 
worn 


-O 


004037 


OSKLS_CTRLR1 
O8-NOV-77 98:30 


043306 


003201 


043510 


047620 
001630 


000040 
001774 
000001 


000001 
0200 


0002 
16023e 
003220 


O43306 


MACY11 30(1046) 
THs 


002135 


042264 


160244 


003162 


003216 


S$: 


6$: 
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SEEK COMMAND TEST 


; FAETER GO HAS BEEN GIVEN TO SEEK COMMAND 
*SAV REGISTERS AGAIN SO THAT COMPARISONS CAN 
it 


RO, J#SAVER ; SAVE 
RHW ; FROM 
WRF ROM ;TO 
1S. ;NUMBER OF REGISTERS SAVED 
S_UPPER TE Ue are CAN BE gat Hi IN & DUAL PORT 
{sOPeRAT oY T obp R BYTE OF rn ¥ LL BE_ SAVED 


as IS 
*#SO T S ARE ONLY VALID FOR THE LOWER BYTE 
hove MP OaREINTOSDS SaWRFROM*SS; SAVE UPPER RHAS 


; *COMPARE REGISTERS BEFORE COMMAND 
;#WITH CONTENTS AFTER GO IS GIVEN 


JSR - RO, J#COMPAR 
WF ROM $000 Bu Tee? BUFFER FER 

cs BE TOR FOR ERROR 

cs 

6$ COMPARISON 
Mov SHERWORD, RS iSETTIN Reaby fo IN 

MOV Rrdie=2(RS), succlt seat cing. pie tehaa ADDRES 
ERROR CHANGE 


WITH GO Ore Cr GIVEN 
RTS PC i TURN TO COMPARISCN 


;®NOW GIVE INIT AND GET GO AND PIP DOWN 
BIS #CLR are RH INIT IL17 
MOY asUNIT, aR2 :REINSTATE Art NU UMBER 
MOV #OMD, ARHMR i SE DIAGNO TIC MODE BIT 
;THIS E NABLES ¢ COMMANDS WITHOUT MOL 
AND HOLDS RHLA FROM MOVING 


er sete Sane Intoe ; SAVED RHCS1 

BIS HRY “Bene INT 230 iSEVED RH FHOS| 

MOV a INTO*2; SAVED 

CLR SRHL A, 28RE J RECe. 
;#AFTER INITIALIZE osave REGISTERS SO THAT 
:#COMPARES CAN BE D: 


JSR RO, d#SAVER ; SAVE 


SEG 90e4 
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CZ2RJIGB.P11 O08-NOV-77 08:30 THs SEEK COMMAND TEST «SEG OCeS 

3293 g21454 001632 RHWC ; FROM 

3035 851428 888533 19. :NUMBER OF REGISTERS SAVED 
97 PER BY AN CHANGING A OUAL PORT 
98 {SOBERAT Ton THE UP —upees Revie E OF RHAS WILL z SAVED AS IS 

3299 THe Co ARE ONL ALID FOR THE LOWER BYTE 

3300 021462 113737 003201 002135 geo 7 HAT ARE Nfoweee Seune on?3S; vabe UPPER RHAS 

3302 

3303 ;*#COMPARE REGISTERS AFTER INITALIZE 

3305 pe1470 00 p04037 043510 ISR RO, J#COMPAR ; COMPARE 

ae pei ne ee? BER 

3388 851228 poeii9 19. NORGER-OF R REGISTERS TO BE 

3390 1 151 ? : COMPARE OINT FOR ERROR 

3319 85} 851218 ? : 

331¢ 021506 021530 ag :RETURN POINT FOR GOOD COMPARISON 
4 7 47 7$: MOV #ERWORD,R TT NG READY TO INDEX 

aid BeieiS Bescge reece Bos RSE REORO.RS ING ROR WORD 

3316 O21516 016537 001630 942264 MOV RALICT2 (RS). sanechR ma oPEGIST R_ADDRESS 

3317 021524 104001 ERROR 1 GIVING AN 

3319 021526 oo0207 RTS PC MPARISON 

3320 621530 es: RETURN 19, COMPA 


GBO,RPOY’S-& DSKLS_CTRLR1 MACYI1 alee O08-NOV-77 O88? PAGE 84 


GB.P 11 O08-NOV-77 08:30 SEEK COMMAND SEG O0eE 
3321 
3322 
3323 021532 012706 001000 MOV aSTACK, SP j RESET STA 
3324 021544 004737 042614 JSR PC, aHCLDISK s NET URN SE cee P GENERAL REG. 
3326 o215S0 012777 oO00001 160102 MOV #OMD , JRHMR SET T _DEAGNOSTIC Ho MODE BIT 
3327 COMMANDS WITHOUT MOL 
3328 + AND HOL HOLDS RHLA FROM MOVING 
3330 021556 013777 oO2044 180054 MOV QSUNLOAD, IRHCS1 ;LOAD UNLOAD COMMAND INTO RH 
3336 ;#SAVE REGISTERS FOR COMPARISON AFTER GO 
3334 021564 004037 043306 JSR RO, a#SAVER ; SAVE 
3335 021570 001632 RHWC ? FROM 
3336 021572 003154 RE INTO >TO 
3337 021574 900023 19. ‘NUMBER OF REGISTERS SAVED 
3339 -#GIVE GO TO UNLOAD COMMAND 
3340 021576 052777 000001 160034 BIS #GO0, IRHCS1 ;GO TO UNLOAD COMMAND 
3342 *#CHANGE as, REG eae: TO BveD Rast VALUES 
3343 021604 052737 000001 003162 drs BREINTO® O+6 
3344 Oel6le 052737 O20000 003204 BIs 
3346 021620 042737 O00200 003204 BIC epi gene TNTOs30 + SAVED AHS: 
3347 021626 005737 001100 TST aasPASS ;I1S THIS FIRST PASS 
3348 Oel632 9001053 BNE S$ ; BRANCH IF NOT FIRST PASS 
3349 O21634 032777 O20000 157276 BIT #SW13,aSWR : INHIBIT ERROR PRINT HIGH? 
3350 021642 001047 BNE 5$ :BRANCH IF SW13 HIGH 
3352 
3353 021754 013746 001774 MOV QSUNIT, -(SP) ;UNIT UNDER TEST 
3354 021760 104405 TYPDS : 
356 Al GO HAS BEEN GIVEN TO UNLOAD COMMAND 
3357 *#SAVED REGISTERS AGAIN SO THAT COMPARISONS CAN. 
3358 :#BE DONE 
3360 021762 004037 043306 S$: ISR RO, a8SAVER ; SAVE 
3361 O21766 001632 RHWC : FROM 
3362 021770 002115 WRF ROM :T 
3363 021772 500023 19. :NUMBER OF REGISTERS SAVED 
365 *AS _UP R BYTE OF ey Bie CAN BE CHANGING IN A DUAL PORT 
3366 x0 ERAT Ton T UPPER YT RHAS WILL BE SAVED AS IS 
3367 «SO THE COMP ONLY vy LIO FOR THE LOWER BYTE 
68 021774 113737 003201 002135 hove * HA ARE N gees SS uRE RON S; cave UPPER RHA as 
3370 
3371 ;#COMPARE REGISTERS BEFORE UNLOAD COMMAND 
3276 : WITH AFTER GO 
3 O22002 4037 043510 JSR RO, J#COMPAR ; COMPARE 
3375 Gec00E 002154 RE INTO :GOOD BUFFER 
3376 22019 OoG21i9 WRF ROM : TEST BUFFER 


JO? 
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CZRIGB.P11 O8-NOV-77 08:30 T46 UNLOAD COMMAND TEST SEQ 9087 
3377 O2e01e 23 19. UMBER 
3378 022014 poonss 1$ ‘ue FOR ERROR 
3379 02201 202 1$ 
3380 Oee02 204 23 RETURN F COMPARISON 
3381 Geede 13? 047620 1S: nov Q¥ERWORD, RS IGET ING ie INDEX 
3383 5058 peeese 001630 o42264 MOV Re 2 (RS), aerechbeu Saas at REGISTER ADDRESS 
3385 022036 104001 ERROR 1 ; IMPROPER REGISTER CHANGE 
3386 :AFTER OAD COMMAND 
3387 :WITH GO IS GIVEN 
3388 022040 000207 RTS PC :RETURN TO COMPARISON 
3390 4 styow GIVE E ANTI AND GET Aut 60 8 AND PIP DOWN 
3391 O22042 OS2712 oD0040 2s: H NIT ILIZ 
3392 Oee046 013712 001774 Bis Saunt are ;REINS ATE UNI 
3393 O2e0S2 012777 000001 157600 MOV #DMD, JRHMR get DIAGNOSTIC MODE BIT 
3394 s Aus, 6s ENABLES COMMANDOS WITHOUT MOL 
3335 HLA FROM MOVING 
3397 - #CHANGE »REGISTERS TO EXPECTED VALUE 
see EERE Gur? fone) pease BIE ger BuRe MPSS an! 2eNvea aad, 

3400 022074 052737 O00200 003204 BIS tory ae INTO 335 : SAVED PHOS 
3401 022102 017737 157566 O03e16 MOV A,a INTOs42: SAVED RHLA 
3403 ; KAPTER INITIALIZE SAVE REGISTERS SO THAT 
3108 :#COMPARES CAN BE DONE 
3406 022110 004037 043306 JSR RO, J#SAVER AVE 
3407 022114 001632 RHWC ROM 
3408 O22136 002110 WRF ROM te 
3308 022120 000023 19. tNUMBER OF REGISTERS SAVED 
3411 ; *COMPARE REGI GISTERS AFTER INITIALIZE 
3412 : AS Baryo BYTE OF R HAS CaN Be CHA NGING A DUAL PORT 
3413 :#OPERATION T UPPER BYT Y oF RHAS W iLL 8 az 1aeY —D AS IS 
3414 :#S0 THAT THE COMP Y VALID E LOWER BYTE 
ais 022122 113737 003201 002135 MOvVB DBREINTO+2S, SRuRE ones, SAVE UPPER TRA AS 
3417 
3418 022130 037 043510 JSR RO, J8#COMPAR ; COMPARE 
3419 022134 3154 REINTO ; G00 BUFFER 
3420 022136 002110 WRF ROM :TES BUFF ER 
gel 022140 000022 19. iN OF REGISTERS TO BE 
3423 O22142 O22150 3$ *RET POINT FOR ERROR 
se4 Geiss 022150 35 ; 
ENS 2146 022170 4§ :RETURN POINT FOR GOOD COMPARISON 
3427 O22150 013705 047620 3S: MOV QsERWORD, RS j GETTING. READY TO INDEX 
28 022154 O60S05 ADD RS,R AR UBLE E ROR WORD 
3429 Oce156 016537 001630 o4ezE4 MOV RHUIC-2(R5), aeREGH R BIEING REGISTER ADDRESS 
3430 O22164 104001 ERROR MPROPER REGISTER 
3431 eONT ENTS AFTER GIVING AN 
3432 UNLOAD COMMAND 


KO? 


JGBO,RPO4’S’6 OSKLS CTRLRI MACY11 30(1046) O8-NOV-77 08:S4 PAGE 86 
ZRJIGB. jo O8-NOV-77 08:30 T46 UNLOAD COMMAND TEST SEG 008s 


en the c00207 RTS PC ;RETURN TO COMPARISON 
* 4 2170 4$: :GOOD COMPARISON 


cer 
C 


LO? 


MACY11 we pate con oa! Fest PAGE 87 
UNL 


I RERERPRARE SA tccsia ca 


4 
o 


seanas 


Sta bel os 


WwW 
+. £ 


0 COMMAN 
BIT aSW4, JSWR TEST F FOR NO OFFSET OR RTC 
BEQ 6s ; DO THE NEXT TwO TESTS 
tL ONTINUE WITH NEXT TWO TESTS 
MOV aSTACK, SP RESET ST ACK 
JSR PC, aeCLDISK ins AND T Up GENERAL REG. 
MOV #DMD , JRHMR s Ene osTIC RAODE BIT 
‘7ts BN S COMMANDOS WITHOUT MOL 
A FROM MOVING 

*GIVE ONE INDEX PULSE TO ¢ EAR RHLA BEFORE THE START OF THIS TEST 
1s @MINX, ;SET INDEX PULSE 
BIC #MINX; IRHMR :CLEAR INDEX 

“TO THIS TEST THE POSITIONER HAS TO 

*BE BR EROUSHT LO NTER LI 
aes @RHCA ;SET DESIRED CYLINDER | TO RHCC 
MOV Sesrecon, aR1 :SEEK COMMAND TO RHC 
INC TO SEEK R COMMAND 
pafOuR SE SECTOR CLOCKS ARE ‘eyey.t0 TAKE POSITIONER OFF OFFSET POSITION 
MOV anercx: , IRHMR SECTOR CLOCK 
Mov RAR RESET séetor CLOCK 
BNE +4 :BRANCH IF NOT COMPLETE 
ISR PC, a8CLDISK ane P GENERAL REG. 
MOV #DMD , IRHMR $e BACNOSTTES 


as ata ree aot eo 


MOV QROFSETC, ARHCS1 ;LOAD AN OFFSET BIT 
MOV BOF 25, JRHOF T AN OFFSET BIT 
#SAVE REGISTERS FOR ceouncees AFTER GO 
jsp SAVER ; SAVE 
R Sac : FROM 
REINTO 70 
15. :NUMBER OF REGISTERS SAVED 
-*#GIVE GO TO OFFSET COMMAND 
61S 8GO, JRHCS1 ;GO TO OFFSET COMMAND 
: #CHANGE 150, D. IST RS TO ES Rick VALUES 
18 ; SAV 
I nt Oe 30° SOxvE D RHDS1 


BIC tele, SSREINTO*30 ‘SAVED RHDS 1 
;#AF TER GO HAS BEEN GIVEN TO OFFSET COMMAND 
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CZRIGB.P11 O8-NOV-77 08:30 T4? OFFSET COMMAND TEST SEG 9090 
32 ;#SAVE REGISTERS AGAIN SO THAT COMPARISONS CAN 
3433 :#BE DONE 
3 pp 32 043306 JSR RO, a#SAVER BR 
RER 
3 00211 WRF ROM 
FS 24 00002 19. t NUMBER OF REGISTERS SAVED 
3500 sopehnr Ton BYTE OF RHAS CAN BE pene aie IN a. DUAL PO es i 
REGS EE OMY Bt “FOR THE OWER BYTE 
3533 022410 113737 003201 002135 ize nat Ts CQneD 5 vave RR 
3505 
5 #C GISTER FORE OFFSET COMMAND 
= HLEPIEAREBRCESTERS OF 
3508 g22416 904037 043510 ISR RO, J8COMPAR 3c 
3511 pS5u54 119 UR ROR ‘soo? Bt BUFF ER 
3215 nate Beea i$ N FOR ERROR 
3514 32 1$ ; 
3215 022434 BSsuee 2s ;RETURN FOR GOOD COMPARISON 
3517 O22436 013705 047620 1S: nov DHERWORD, RS Sooo READY TO INDEX 
i 3 44 Oie837 001630 042264 MOV Rrdic=2(RS), aenec i is I TER ADDRESS 
104001 ERROR fee Se TER CHANGE 
N 
022454 000207 RTS PC HET ten 0815 Cc eV ISON 
;#NOW GIVE INIT AND GET wa GO AND PIP DOWN 
022456 ? 2s: BIS #CLR RH Agta att 


0S2e712 o00040 
teeiee BLE Bhool sre ABYSS ERMSHEAR an ie 


(fo Ea a 
Uy Se Be 


He Hoe TITTHOUT MOL 
HLA FROM MOVING 


HAIR lt 
RR 


3s 





3o38 Oe 
3240 4 NITIALIZE SAVE REGISTERS SO THAT 
2 ARES. CAN BE DONE 
3543 022532 904037 043306 j SR RO, J#SAVER ; SAVE 
sale Oees 001632 RHWC ;FROM 
4S Oees4 2110 WRF ROM TO 
#2 CeeS4e 000023 19. ;NUMBER OF REGISTERS SAVED 


CZRJGBO, RPOY’S “6 tome pe | 


CZRIGB.P11 08-NOV- 


SO 
seek 022544 113737 


003201 


043510 


047620 
001630 


NO? 
MACY11 | ied tbe am. f oe aed 83 


ri BYTE OF 
002135 
pegonP REGISTE 
SSR Roos ER 
REINT 
REE RON 
19. 
3$ 
3 
y 
3S: MOV QsERWORD, RS 
ADD S 
042264 MOV RHUC- 2(RS), aeRE 
ERROR 
RTS PC 


4S: 


a TOI ecettecriat Sia Cb beau Bir 


AFTER NITIALIZE 


+ 


BUFF ER 
ES FER 
REGISTERS TO BE 


T POINT FOR ERROR 

TURN POINT FOR GOOD COMPARISON 
;GETTING READY TO INDEX 

E 

ILI ofefea™® ADDRESS 


as a fze Teh Saath" 


: OF FSET COMMAND 
;RET TO COMPARISON 


;GO00B COMPARISON 


aes 


SEG 9091 


a0 


wera Ba 


sarovss 66 


Spncune Soe URRTERCRSa RATERS ASE ORRORRER 


a aaaaaaa 


SURN UREN 


0, RPO4’S’6 OSKLS CTRLRI 


Pil 
022614 
022626 


022632 


022762 


022770 


01e7 
00473 


012777 


113737 


004037 


O8-NOV-77 08:30 


001000 
042614 


000001 


000001 


043306 


003201 


043510 


MACY11 30( 1046) 
TH? 


157020 


157012 
157004 


156756 


156736 


1S6744 
1$6736 


003162 
003204 
003204 


002135 


SS: 


0 Ps be 77 08:S4 PAGE 90 
OFFSET COMMAND TEST 






MOV aSTAC ;RESET STACK 
JSR PC, BecLB ISK INIT SET GENERAL REG. 
MOV #DMO, IRHMR i BY MODE BIT 

: THIS NABL COMMANDS WITHOUT MOL 

:AND HOLD A FROM MOVING 
-#GIVE ONE NE INDEX PULSE TC To oft ERR BH RHLA BEFORE THE START OF THIS TEST 
61S PULSE 
BIC SMINX” SRHAR : CLEAR THOEX 


MOV @BRETCL,@RHCS1 LOAD RETURN TO CENTER LINE COMMAND INTO RHCS1 
iZSAVE REGISTERS FOR COMPARISON AFTER GO 
0, J8SAVER AVE 
: ce] 


TO 
:NUMBER OF REGISTERS SAVED 


“GIVE GO TO RETURN TO CENTER L 
é1s 8GO, aRHC antics o RETURN TO TO NR ENTER COMMAND 


#F OUR a CLOCKS ARE GIVEN T° TAKE POSITIONER TO CENTER LINE 


REiNTo 


hov 

MOV snTCK!DMD, ARH SET SECTOR CLOCK 

mov BOM, ORHMR” SET SECTOR CLOCK 

BNE 55 5 COUNT IF NOT COMPLETE 
-#CHANGE SAVED BEGISTERS 19 TO vEDr Race VALUES 

me ik S priser into TSAVED 

BIC sDRY' Se iNTo 230 :38 B BHD Rupet 

;#AFTER GO HAS BEEN GIVEN TO RETURN TO CENTER LINE COMMAND 
j #SAV ne ISTERS AGAIN SO THAT COMPARISONS CAN 

SSR 0, a8SAVER ; SAVE 

RHWC i FROM 

WRF ROM 

19. + NUMBER OF REGISTERS SAVED 


#AS UPPER NTH UP UPPER BYTE OF HGS WILL IN A DUAL PORT 


: #OPE oi ON T b Eon . sev ED AS IS 
#SO T ONLY VALID FOR 


— LOWER BYTE 
hove HARE NTO+25, SauRE OM+25;SAVE UPPER "Win Ss 


SAAT AFT BECISTERS BEFORE RETURN TO CENTER LINE COMMAND 
sR RO, J#COMPAR ; COMPARE 


SEG 0092 


C2RJGBO, RPOY’S “6 4 tm CTRLR1 MACYI1 (1046) NOV-77 08:54 P 
CZRIGB.P11 O8-NOV-77 08:30 7955 RETURN TO CENTER LINE COMMAND TEST SEG 0093 


3629 022774 003154 REINTO ;GO0D BUFFER 


3630 022776 0 WRF ROM : TEST FER 
3) B53802 setts ; 12: : NUBBER FOR ERROR 
36 301 1§ ; SAME 
3638 023006 023030 23 :RETURN FOR GOOD COMPARISON 
3636 023010 013705 047620 1$: MOV JsERWORD, RS j GETTING | READY TO INDEX 
3e36 0e3016 popes 001630 Oo42264 AY Brie =2cRS) ~<a cing, eGiaT ADDRESS 
3638 3038 788881 ERROR PROPER FESh EAANGE 
3640 R RET iid CENTER LINE COMMAND 

41 WiTH GO a a 
364¢ 023026 000207 RTS PC URN TO COMPARISON 
se ;#NOW GIVE INIT AND GET as GO AND PIP DOWN 
3646 023030 oS2712 o00040 2s: BIS BcLR are ;RH INTT ILIZE 
3647 023034 O0137le 001774 MOV sUNt 2 aay A orig, nove 
3648 023040 012777 000001 156612 MOV SOnD. JRHMR fetot'y 
3649 in) A al MOL 
3650 } AND De BALA OORON VING 

* GISTERS TO E 
3£25 023046 042737 000001 003162 — 265, ASAE RTOS stag ee 
See GS30e2 be5939 Becebo bosso4 BIS soa’ vASBREINTOSS0 te pe 
3656 kia 017737 1 003216 MOV A, aSREIN Orde: D RHLA 
3658 ;#AF TER INITIALIZE SAVE REGISTERS SO THAT 
3659 #c BE DONE 
3660 023076 004037 043306 bsR 0, J#SAVER AVE 
3661 Oe3102 001632 RHWC FROM 
3662 023104 002110 WRF ROM 
3663 023106 000023 19. 11D sen OF REGISTERS SAVED 
3665 is Ber yon BY ire BHAS ¢ CAN BE cpt INA 8 DuaL 
3ee5 see ofPARES ar Bu TD FOR THE LOWER BYTE 
3658 023110 113737 003201 602135 hove @BREINTO+2S rvaL UPPER RHAS 
3670 
3671 *#COMP: GISTERS AFTER INITIALIZE 
3672 023116 004037 043510 jsr Eo Reece nPaR 3c 
3673 Ge3ice 003154 REINTO $000 BUFFER 
3675 O53i5¢ eae 19. R OF REGISTERS TO BE 
3677 1 1 : POINT FOR ERROR 
mre S533 esi 3 fa 
3679 1 3156 4 :RETURN POINT FOR GOOD COMPARISON 
3681 
268¢ 023136 013705 047620 3S: MOV JsERWORD, RS ;GETTING_ -READY. 10 TO INDEX 
isc 

3685 853155 SPEES5 ooiezo veces MOV Reukacas), DWREGABR OFAILING RECISTER ADDRESS 


CZRIGBO,RPO4’S6 OSKLS CTRLR1 MACYI1 30(104%6) O8-NOV-77 08:S4 PAGE 92 oxo 
ocs4 


C2RIGB.P11 O8-NOV-77 08:30 TSO RETURN TO CENTER LINE COMMAND TEST 
3685 023152 104001 ERROR 1 ; IMPROPER REGISTER 
3686 i CONTENTS AFTER GIVING A 
7 5 ANT TIAL Efe FOLLOWING A RETURN TO 
; CENTER 
2°33 023154 000207 RTS PC ; RETURN 70 COMPARISON 
3631 023156 4$: ;GOO0D COMPARISON 


3692 


CZRIGBO,RPO4/S “6 DSKLS 
C2RIGB.P11 08-NOV-77 
3693 
3694 
3695 023160 012706 
303 023172 004737 
3698 023176 012777 
3699 
3700 
3701 
3702 
3703 
3794 
3705 32 052777 
3708 023212 042777 
3708 023220 013777 
3709 
3517 3226 004037 
ee 
3712 Oe3e3e 001632 
3713 Oese3s4 003154 
3714 Oe3e36 000023 
3715 
3716 
3717 023240 052777 
3718 
3719 
3720 
3721 O232% 0127 
3722 Oe3eSe 012777 
3723 Oe3s2e60 012777 
724 O23e66 30 
3725 023270 001370 
3726 
3727 
3728 
3729 3272 052737 
3730 023300 052737 
3731 023306 042737 
3732 
3733 
3734 
3735 
3736 023314 004037 
3737 3320 001632 
3738 Oesa2ee 002110 
3739 022324 000023 
3740 
3741 
3742 
ante 022326 2737 
2 112 
3745 
3746 
3747 


CTRLR1 
08: 30 


001000 
042614 


000001 


ooo004 
000004 
O0204%6 


043306 


000001 


000004 
000011 
000001 


000001 
020000 
000200 


043306 


003201 


MACY11 30(104%6) O 
TSO RE 


1564S4 


1S6446 
156440 


156412 


156372 


156400 
1S6372 


003162 
003204 
003204 


002135 


S$: 


7 NOV-77 08: mot AGE 93 

URN TO CENTER LINE COMMAND TEST 

MOV aSTACK, SP sRESeT ain Se 

JSR PC, aecLDISK AND SET m4 GENERAL REG. 


MOV #0MD , IRHMR e. Lane MODE BIT 
wets COMMANDS WITHOUT MOL 
AND H RHLA FROM MOVING 


;*#GIVE ONE INDEX PULSE TO CLEAR RHLA BEFORE THE START OF THIS TEST 


BIS #MINX, JRHMR ;SET INDEX PULSE 
BIC #MINX, JRHMR ;CLEAR INDEX 


MOV @BRECALI,@RHCS1 ;LOAD RECALIBRATE COMMAND INTO RHCS1 


“SAVE retrsrens. FOR COMPARISON AFTER GO 
js 0, J8SAVER AVE 


RHWC 
~~ 


iF * 

* NUMBER OF REGISTERS SAVED 
*GIVE GO TO RECALIBRATE CO 

drs &GO, IRHCS1 :GO TO RECALIBRATE COMMAND 


par oun <c'S CLOCKS ARE COUNT 10 TAKE POSITIONER TO CYLINDER OC 


HOV SNSTCK!OMD, ARHMR SET SECTOR CLOCK 

MOV #OMD, JRHMR RESET SECTORS CLOCK 

DEC RO COUNT 

BNE S$ :BRANCH IF NOT COMPLETE 
*CHANGE SA D REGISTERS 10 19 | XPECTED VALUES 

BIS AGO,SBREINTOSE SAVED RECS) 

BIC SORY’ bs gaREINTOS 30 :SAVED RHDS1 

;#AFTER GO HAS BEEN GIVEN TO RECALIBRATE COMMAND 
: #58 REGISTERS AGAIN SO THAT COMPARISONS CAN 

ySR RO, a8SAVER ; SAVE 

RH >FROM 


ld 
WRF ROM >TO 
19. :NUMBER OF REGISTERS SAVED 
*#AS UPPER BYTE OF RHAS CAN BE CHANGING IN A DUAL PORT 
{ HOPERAT ION THE UPPER BYTE OF RHAS WILL BE SAVED AS IS 
“#50 THAT OMPARES ARE ONLY VALIO FOR THE LOWER BYTE 
hove DeREINTORES. DBWREROM+2S; Save UPPER RHAS 


;*COMPARE REGISTERS BEFORE RECALIBRATE COMMAND 
;#WITH AFTER GO 


SEG oCcSs 


FOS 


gery ego RPOY S76 oe - Rav, ° TRL RA MACY11 30(1046) O8-NOV-77 O08:S4 PAGE 94 


Pil 08-NOV-77 08:30 TS1 RECALIBRATE COMMAND TEST SEG 00S€ 
3749 923334 904037 043510 = RO, J#COMPAR MPARE : 
Pel Gane Bailie pie ey BEE 
3525 pS 3aue g999 4 1$ i NUMBER FOR ERROR 
3754 923350 3354 15 : SAME 
3758 33 23 :RETURN FOR GOOD COMPARISON 
3757 3354 0137 047620 1S: MOV J#ERWORD, RS ; GETTING Y TO INDEX 
3758 3360 0605 ADD RS, RS DOUBLE E ERROR WOR WORD 
3759 Oe3362 016537 001630 o42264 MOV RHUC- =2(RS), aNREGADR ILING REGISTER. ADDRESS 
3760 023370 104001 ERROR :I MPROPER RE HANGE 
3761 AF TE Bate CORNED 
3762 ‘WITH GO ot 
3763 023372 000207 RTS PC :RETURN TO COMPARISON 
3765 *#NOW GIVE INIT AND GET ALL GO AND PIP DOWN 
3767 023374 oOS2712 o00040 2s: BIS SCLR, aR ;RH_ INITILIZE 
3768 023400 0137le 001774 MOV SeUNtT ore i BE NSTATE UNE T NUMBER 
3769 O23404 012777 000001 158246 MOV #O0MD, JRHMR :S DIAGNO TIC MODE 
3779 : THIS NABLES COMMANDS WITHOUT MOL 
3771 :AND HOLDS RHLA FROM MOVING 
3773 ,¥CHANGE REGISTERS TO EXPECTED VALUE 
3774 023412 042737 000901 003162 BIC 8GO,38REINTO+6 ;SAVED RHCS1 
3775 023420 042737 Oe0000 003204 BIC aPIP, S#RE INTO+30" ; SAVED RHDS 1 
3776 Oes4e6 052737 000200 003204 BIS #DRY? AOBREINTO ;SAVED RH 
3772 023434 017737 156234 003016 MOV JRHLA, a8 ANTOs4e: Rea. 
3779 ;#AFTER INITIALIZE SAVE REGISTERS SO THAT 
3780 > #COMPARES CAN DONE 
3781 3442 004037 043306 SSR RO, J#SAVER ; SAVE 
37 3446 001632 RHWC : FROM 
3783 O234S0 002116 WRF ROM :TO 
3788 023452 900023 19. :NUMBER OF REGISTERS SAVED 
3786 ;#AS UPPER BYT OF BHAS oe ore CHANGING IN A DUAL PORT 
3787 ; OPERATION T UPPER RHAS WILL BE TBAVED as IS 
3788 *SO THAT THE COMP ARE ONLY VALID FOR THE LOWER BYTE 
3789 0234S4 113737 00320: 002135 hove JeREINTO+2S, CBRE ROMS SS; SAVE UPPER RHAS 
3791 
3792 *COMPARE REGISTERS AFTER INITIALIZE 
3793 023462 004037 043510 isR RO, J8COMPAR C0 
3794 O23466 003154 RE INTO 00) FFER 
3795 023470 902110 WRF ROM ES FFER 
3736 023472 000023 19. {NUMBER OF REGISTERS TO BE 
3798 023474 023502 3$ RETURN POINT FOR ERROR 
3799 023476 O23502 33 ;SA 
3800 0a2S00 22522 4s :RETURN POINT FOR GOOD COMPARISON 
J6U 
3802 O23502 013705 047620 3S: MOV QsERWORD, RS ;GETTING READY TO INDEX 
3803 Ge3S06 o&0S0S ADD RS, RS ‘DOUBLE ERROR WOR 


380% Oe3£i0 016537 O01630 CH2264 MOV RHWC-2(RS), aerEGADR ; ;FRILING REGISTER ADDRESS 


¢ 
c 


ZRIGBO,RPO4’S6 DSKLS_C 
l -? 


ZRIGB 
3805 
3806 
3807 
3808 
3809 


38ic 
3811 


Py O8-NOV-77 
023516 104001 


023520 000207 
023522 


TRLRI 


08:30 


GO8 


MACY 11 395 1ONG) O8-NOV-77 08.84 Page 3s 
Si RECALIBRATE COMMAND TEST 
ERROR 1 ; IMPROPER REGISTER 
5 CONTENTS EER GIVING AN 
; INITIALIZE FOLLOWING A 
5 REGAL TeeR Te COMMAND 
RTS PC ;RETURN TO COMPARISON 
4$: ;GOOD COMPARISON 


SES 0097 


C2RJGBO,RPOY’S’6& DSKLS CTRLR1 MACY11 30(104%6) O8-NOV-77 08:54 PAGE 96 


CZRIGB.P11 O8-NOV-77 08:30 TS RECALIBRATE COMMAND TEST SEG 9098 
STE 
14 023524 oO12706 001000 MOV sSTACK, SP ;RESET STACK 
3815 023536 004737 oO42614 JSR PC, J8CLDISK e at pf GENERAL REG. 
3845 623542 012777 000001 156110 MOV 8DMD , IRHMR BYA 1F MODE BIT 
3818 THIS ENABLES COMMANDS WITHOUT MOL “ 
3819 AND HOLDS RHLA FROM MOVING aw « 
38e1 023550 013777 o020S2 156062 MOV DeRELEASE, quest ;LOAD RELEASE COMMAND INTO RHCS1 
3 ce ReGl STERS F FOR COMPARISON AFTER GO 
4 023556 004037 0433206 ; SAV 
3825 023562 001632 : FROM 
3828 023564 003154 REINTO :TO 
3867 023566 900023 15. ‘NUMBER OF REGISTERS SAVED 
3829 -#GIVE GO TO RELEASE COMMAND 
3830 023570 oS2777 oD00001 156042 BIS #GO, IRHCS1 ;GO TO RELEASE COMMAND 
3831 023576 052777 O00001 1560S4 BIS SOMO. aRHMR :SET DMD TO HOLD RHLA 
3833 ; #CHANGE a ISTERS 9 EXPECTED VALUES 
3834 : #AF TER Go GIVEN. 10 0 -RELEASE COMMAND 
3835 023604 052737 000001 903202 brs NTOS 
3836 O23612 017737 156956 O03e16 MOV SRHLAS SORE INTOs4e: SERVED RHLA 
3838 
3838 138660 REGISTERS AGAIN SO THAT COMPARISONS CAN 
3841 023620 004037 043306 RO, J#SAVER ; SAVE 
3842 023624 001632 ish FROM 
3843 023626 502110 WRF ROM 'T0 
3848 023630 900023 19. :NUMBER OF REGISTERS SAVED 
3846 AS UPPER BYTE OF RHAS CAN CHANGING IN A DUAL PORT 
3647 : SOBERAT ION THE UPPER BYT RHAS i WILL BE SAVED AS IS 
3648 *SO THAT THE COMPARES ONLY VALIO FOR THE LOWER BYTE 
43 023632 113737 003201 00213: hove BRE INTO+25, JSWRE ons 3S; cave UPPER RNAS 
385i 
3852 ;#COMPARE REGISTERS BEFORE RELEASE COMMAND 
3853 :#WITH AFTER GO 
3854 022640 004037 043510 icr RO, a#&COMPAR 
te npPa8 ee BFER 
3625 pS3ee8 23 19. SBE 
3858 b2366e 023660 1$ RETURN FOR ERROR 
3860 B53pe¢ 953585 2 + Re hRN FOR GOOD COMPARISON 
3862 023660 013705 047620 1$: MOV DBERWORD, RS ;GETTING. REAYD TO INDEX 
2863 3664 O60505 ADD RS_R 8 wus WORD 
3864 O23666 916637 oO01630 o4e264 Mov Rai =2(R5), a#eREGA R BIE ING REGISTER. ADDRESS 
3865 023674 104001 ERROR OPER REGISTER CHANGE 
3866 iAETER RELEASE COMMAND 
38E7 WITH GO IS GIVEN 


CZRIGBO,RPOY’S“& OSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 08:54 _ PAGE 97 
C2RIGB.P11 O8-NOV-77 08:30 TSe RELEASE COMMAND TEST Seo ccS¢ 


3868 023676 000207 RTS PC ;RETURN TO COMPARISON 
3889 92°700 2s: 
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CZRIGB.P11 O8-NOV-77 08:30 TS2 RELEASE COMMAND TEST SEG 0100 

71 
3872 
3873 
3875 
3876 023736 012706 001000 MOV aSTACK, SP jRESET STACK 
3877 023750 004737 042614 JSR PC, aeCLDISK :INIT ANC SET UP GENERAL REGISTERS 
3879 ;#THESE ARE REGULAR SET ups FOR SEARCH COMMAND 
3880 0237S4 012777 o00025 155662 Mov #21. , ORHOST ESIRED SECTOR/ TRACK REGISTER 

82 023762 005077 155664 CLR JRHC pee! RED CYL CYL INDE NBER. =0 

023766 012777 O10000 155654 MOV ee ORHOF MAT BIT=1 (16 arts PER WORD) 

3884 023774 013711 OO020S4 MOV JeSERCH, aR ‘FILL SEARCH COMMAND IN RHCS1 
3886 -#NOW SAVE REGISTERS STARTING FROM RHWC IN WRITE of ROM BUFFER 
3887 024000 004037 043306 SSR RO, a8SAVE 8 HEV ENS ‘OF 1He "search AR ISON 
3889 oO24004 001632 HC ist SAVING FROM RHWC 
38390 024006 003154 RETNTO ; INTO RE INTO 
3831 02e40i0 000023 19. :N Le OF REGISTERS SAVED 
3893 
3894 : #NOW THE DIAGNOSTIC MODE BIT WILL BE SET 
3835 *#AND THE SEARCH OPERATION STARTED 
3897 024024 005037 001200 oun aeSTMP 1 s THIS WILL HAVE THE EXPECTED 
3838 VALUE OF RHLA REGISTER 
3900 024030 013700 1660 MOV #RHMR, RO am RO HAS MAINTENANCE REG. ADDR. 
3301 Geis O177a3 Teceoy gy -BANDGT “Ra, SEY DESIRED SECTOR TRACK Rec. 
3903 024044 010337 3544 MOV aBh aesec : ICATE SECTOR 
3904 1 43 000001 MOV MD o. ; 
390S 24054 02277 900001 1SSSS6 BIS : GO, vai aiee 
309 Oae710 eee Bie He netck, 30 i aE aR” CTOR CLOCK 
3208 024074 052710 000010 BTS @MSTCK, ee Oe CTOR Be oCk. oo 
3910 Ge4100 042710 000010 BIC eMSTCK: oO ; tak CT CLOCK 
3911 1 oobe NOP ot ME CTOR CLOCKS 
3912 024106 052710 000014 BIS #MINX!MSTCK,@RO ; x CEET CLOCK 
3913 Oexlle O 7 000001 MOV BOND, BRO TNDEX AND CTOR. CLOCK 
3914 Ge4116 7 3 TST R uae REQUIR UMP OUT 
3315 4120 0015S BEQ 118 CTOR 20 REQUIRED 
3317 j HAPTER THE INDEX cus OE RHLA “Ach BE CH eee TO BE ZERO 
3015 024122 012737 001140 991206 1S: hov ovr As. 38 ssid i ge a eho BY YTES PER SECTOR 
3920 024130 017737 155540 1126 MOV @RHLA: 
3921 024136 017737 155502 001720 MOV @RHDST, a8DS DeStRED D SECTOR TRACK 
3922 024144 0237 001206 001126 CMP aesTMPl,a Soa oar! pRHLA AVE EXTENSION 
392 if an ig TO ZERO 
3924 O24152 001414 BEG 2s :B 
3925 Oe4i54 013737 os3544 o01202 MOV SesecTR QeSTMP2 :GET SECTOR SOUGHT 
3926 Oe4lé2 160337 O01202 SUB $TMP2 :$TMP2 NOW HAS PRESENT SECTOR 


CZ2RJGBO,RPOY’S“6 OSKL 


CZRIGB.P11 08-NOV- 
3927 O24166 012746 
3928 Devize 163716 
3929 012637 
3930 pSusos 104024 
3931 
3932 
3933 
3934 
ne 
3937 
3938 
3939 
3940 
3941 024204 012702 
3942 024210 012705 
3943 Oe4e14 O00404 
3944 024216 71 
394S Oe4e2e 271 
3946 Oe4ec6 71 
3947 Oe4e32 042710 
3948 Oe4e36 005302 
3949 4O40 001372 
3950 e4¥2 00533 
3951 Oe4e46 012702 
3952 Oe42S2e 005305 
3953 024254 001360 
3954 
3955 
3956 
3957 
3958 
3959 
3960 
3961 
3305 
3964 
3965 
3966 
3967 
3968 O2425E 012705 
3969 
3970 O24262 012701 
3971 
sae Rees Bue 
3374 Deus7e pase; 
Sere Deua0E | paBrt 
34 Beate Boe 
3978 314 001372 
3ee0 beuses ppT ase 
3981 024324 De30t 


CTRLR1 
08: 30 


Bese Be 
Ran Ro 


Be 
He} 


MACY11 30(1046) 
TS4 


es: 


3S: 
4S: 


S$: 


63: 


O8-NOV-77 08:S4 PAGE 99 
LOOK AHEAD REGISTER 


ty Stfiaa PE Ke Fae beBtoat Evie Nnsee 

MOV (SP)+, J&STMPS SEN BYTE NUMBER 

ERROR 24 AD REGIST R AT THE BEGINING OF A 
CTOR S IN ERRO 


Rebar a a hgsht Hite RNBETPORRI CE au 
SHALES 


ore WORD ONLY THAT IS TWO BYTES 


MOV #8. Re ;BYTE 
nov se, RS :BYTES PER WORD 

BIS SMSTCK!MCLK,@RO ;SET SECTOR AND ¢ CLOCK 

BIC aria CK INELK, , ORO ; CLEAR CTOR AND CLOCK 

BIS eMCLK 

BIC #MCLK, JRO ar 

DEC Re ieyTe™ TER 

BNE 4§ : count YTE NOT COMPLETE 
DEC aaSTMPY YTE COUNT DOWN 

MOV #7,R2 ETUP UP FOR SECOND, BYTE 

DEC RS WORD C ETE? 

BNE 3s t BRENCH IF COMPLETE 


O GIVE SECTOR CLOCK AND CLOCK 


; #NOW WORDS ARE IDENTICAL 
tes Hy Teese COR 
#20127 Ap vTES (2 POL ane ALREADY GIVEN) 
PETHEN RHC A wice Br CHECKED. BF TER R SEE MORE BYTES 
: #THEN Ae TOT Tes Wl WILL BE COMPLETED 
: RHLA WILL 3 nADE READY NEXT SECTOR 
?#AND RHLA WILL 
— a FERTENST N FIELD Ts 0 . CHECKED 
MOV #127. .R1 FIRS? The Cc Gi ExTENS ON FIELD 
MOV 'CLOCKS PER BYTE COUNTER 
cle HRSTEctne 388 Leteaee Sebo eek ex 
Bee peut SR RESET anc OCKS PER BYTE 
BNE : Lott F Bvt NOT COMPLETE 
BEG sis ~ + ERANCHDUT IF 608 BYTES DONE 
DEC :COUNT D MBER OF BYTES 


UN 
:TO CHECK EXTENSION FIELD 


SEG 0101 


cen yaee RPO4 7S “6 a CTRLR1 MACY11 30(1046) O8-NOV-77 08:54 PAGE 100 


JGB.Fi1 O8-NOV-77 08:30 TS4 LOOK AHEAD REGISTER SEG S102 
3983 024326 001357 BNE i} 3 BRANCH IF EXTENSION FIELD NOT 
3383 TO BE CHECKED YET 
3986 ;#NOW THE EXTENSION rims OF THE LOOK AHEAD REGISTER 
3387 :#WILL BE CHECKED 
3989 4 37 00 1200 ADD Py ;GET TO THE NEXT EXTENSION 
3330 rates 17737 reese nares MOV sence SisB T GET RHLA FOR COMPARISON 
3992 344 017737 155274 001720 MOV QRHDST, DBOST eeMEcR DESIRED SECTOR TRACK 
3233 4358 3737 001200 001126 CHP ain SsSBODAT’ , CHEC 
3995 013737 OS3544 001202 MOV cTR gSTHP2 i GE 
3996 tea 37 001202 SUB SThpe ESENT SECTOR 
3997 374 012746 001140 MOV srrSP) ea CTOR 
3998 00 163716 001206 SUB me (SP) 

3999 O2e4404 012637 OOle MOV te), aksTmp3 

4000 O244i0 104025 ERROR RROR IN THE MIDOLE 
4001 A on 1S IN ERROR 

$003 024412 o60505 7S: ADD RS,RS at NEXT STEP TO CHECK EXTENSION FIELD 
4004 O2e4414 010501 MOV RS‘R1 :PUT IN COUN 

400s 024416 000723 BR ss sR 4 BACK CTOR 

Md pew20 37 © 001200 10S: ADD #20, 28STMP1 , 

4008 710 10 BIS aMStCK, a0 ; THESE. THO INSTRUCTIONS GIVE 

4009 924432 042710 O00010 BIC aMSTCK: aR ; CTOR CLOCK EXTR 

4010 024436 goge40 NOP ;ALLOW TIME WEEN SECTOR CLOCK 
4011 O24440 052710 900010 BIS TCK, » BRO :T SE TWO INSTRUCTIONS GIVE 

4Oie 024444 042710 OO00010 I TCK’ : oft Tee CLOCK EARLY 

4014 O244S0 00530 R ; CTORS COMPLET 
cole GENE2 S075 — Beans TE RoW? OF SECToRs conptere 
4017 ;#NOW THE REQUIRED SECTOR IS REACHED 

4018 : #ONE SECT CLOCK WILL BE GIVEN TO GET SECTOR PULSE 

4018 : #DOWN HENCE ATA 

4021 O244S4 012702 000010 11$ MOV #8. ,R2 :8 cLocKs 

402 05271 go000e 125 BIS ancl, 9 ;SET CLOCK 

402 4 O4e71 O02 I #MCLK; aR :CLE LOCKS 

4024 024470 005302 DEC : COUND DOWN 

ese BSu4r4 052716 000012 Bie ahs TCK NCL K (@RO iSET SECTOR AND Chock 

Mirtd Oe4s00 042710 O000le BIC TCK!MCLK; JRO ;CLEAR SECTOR AND CLOCK 

sos8 ;#NOW ALL REGISTERS W 

4930 :#SO FILL ERBeeT ERS VALUE PATS SAVED. LOCATIONS 

4032 O24 052737 100000 316 BIS INTO INCL N SAVED RHC 

4033 ase 053737 ABSoSE teeta gfe seatten ;BOREINTO+aH Fan "APPROPIATE A FET roN 
4035 O24S20 052737 000001 003202 BIS #OMD, ae R SAVED 

4036 Oe4Se6 056737 100000 003204 BIS sara 3 BRE INTO*26 reey on N RHDS 1 SAVED 

4037 024534 013737 001200 Oo03ei6 MOV aSTAPL. raaREINTOWaB 2 ANOVE EXPECTED VA LUE 


Seay erate DSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 08:S4 PAGE 101 


CZRIJGB.P11 O8-NOV-77 08:30 TS4 LOOK AHEAD REGISTER SEG 0103 
4039 
4040 i cave RESTS ERS AGAIN 5 
4 : #SAV ISTERS AGAIN SO THAT COMPARES CAN BE DONE 
4043 Oe4S42 O04037 043306 JSR RO, J8SAVER AVE 
4044 O24S46 1632 RHWC ROM 
4O4S Reizes 418 WRF ROM iv 
4O46 00002 19. + NUMBER 


- ae UPPER ays OF eon By sen A wine Ghee iN 8 sue ants 


08) O24SS4 113737 003201 002135 ise THAD TEN REE SSA AERORTSS, & Oe Be OMe are 


40 
954 ; *COMPARE REGISTERS BEFORE SEARCH WITH AFTER 
WOSB O24S62 004037 043510 JSR __—- RO, A#COMPAR ; COMPAR 
ieee 024566 003154 REINTO ‘60 BUFFER 
4059 024570 002110 WRF ROM ; TEST BUFFER 
06} isi Devas 135 Be FOR ERROR 

7% i 5 
4063 Oe4e25 145 RETURN FOR GOOD COMPARISON 
HOBY GeubGe 013708 047620 138: OY Q¥ERWORD, RS TTING READY TO INDEX 
Be Beste obi; 001630 042264 Eon ae 2(RS), aeRE me pee FBR 
WOES Oe4es2 14s: s sues 


C2RJGBO RPOY/S “6 DSKLS_ CTRLR1 MACY1L1 30(1046) O8-NOV-77 08:54 PAGE 102 
GB.P11 08-NOV-77 08:30 TS4 LOOK AHEAD REGISTER SEG 9104 


4071 


SELSECL ECE Eee eee eee eceeee 
forvronprofufonp DO OO OOOD00 
UO EU ODO VON LO OB IRR LOWES 


O,RPOY’S“6 OSKLS CTRLR1 MACYI1 30(104S) O8-NOV-77 08:54 PAGE as 
Pi. OS-NOV-77 08:30 Tss MAKE CURRENT CYLINDER = SEG 0105 


-SBTTL READ/WRITE ADDRESSING VIA RHMR 


024660 012706 001000 MOV #STACK, SP ;RESET STACK 
024672 012700 051320 MOV #SECGAP, RO ; POINTER 
Gee 012701 o00460 MOV #304. Ri : COUNTER 

702 Ole720 177777 1S: MOV #-1, tha} :CLEAR “DISK” AREA TO ALL ONES 
024706 005301 DEC Ri 
024710 001374 BNE 1§ 
024712 004737 O42614 ISR PC, CLDISK :THIS IS USED TO SET UP GENERAL 


;REGISTER CORRESPONDENCE 
;*THESE ARE TO SET UP FOR DISKLESS USE ONLY 


024716 012737 O10000 052636 MOV eFMT22, DBWCYL sFonnaT g2=16 BIT WORDS AND 
024724 005037 052640 CLR QSWSECTR i TBRCK=D, SECTOR=0 
024730 005037 OSe642 . CLR aeWKEY 1 1=0 

734 905037 OSe644 CLR DBWKEY Keyes 

740 012737 0400 052676 MOV et SFNWORD 3256 D: 
024746 004537 O44022 JSR aaecRc :GO TO ACA CULATE CRC 
024752 052636 WOYL 
024754 052646 GCRC 

;*THESE ARE REGULAR SETUPS FOR RH11 & “WRFROM” OUTPUT BUFFER 

024 012777 177374 1S4646 MOV 8-260. , BRHWC ;256 DATA S 4 HEADER WORDS 
024764 012700 002110 MOV WREROM RO obs ADDRESS TO BE 

770 g10077 TS4B4O MOV RO, JRHBA UF FER “WRF ROM” 

774 Ole 0403 MOV #259. .RS ER 

012720 010000 MOV eFMT22, (RO)+ FORMAT =16 BIT WORD 
o2s004 o0s020 2s: CLR (RO)+ ECTORSO, TRACK=0,KEYS=0, ALL DATA=0 
025010 Pa9e ote AA i Crt IND RzO,- -S0SCLERR ALL. “HR ROM” 
O250:2 ected 154626 CLR ORHOST :TRACKS0, SECTOR=0 
025030 013711 oD02064 MOV QeWRIFOR, aR1 ;GET READY FOR WRITE HEADER 
; AND TA WITH 62 IN RHCS! 
025034 005037 o02006 CLR QsERFLGS CL ERROR FLAG 
025040 012777 O10000 154602 MOV 8FMT22, JRHOF :FORMAT BIT=1 1&6 BIT WORDS 
025046 005077 154600 CLR JRHCA CY INDER fe) 
O250S2 004737 052462 ISR PC, J#COMWHD ‘WRITE HEADER AND A FROM “WREROM” 
*INTO THE RHMR REG eTER AND BACK INTO 


;CORE “DISK” AREA 


;*#IF THE PROGR comes BACK HERE WITHOUT E 
;*#PRINT OUTS FROM THE “COMWHO” ROUTINE THAT MEANS 
;#ALL_ HEADER ON DISK IS GOOD IE. ONLY DATA 

;*#TO BE CHECKED TO SEE IF IT IS ZERO 


CZRIGBO,RPO4’S’6 OSKLS CTRLR1 MACYLI SOL} ONG) -NOV-77_ 08:54 Pace 104 
C2RJ S6 


GB.P11 O8-NOV-77 08:30 WRITE HEADER DATA | SEG CICE 
4128 
4129 WRIT ATA AND TOLERANCE GAP TO SEE IF THEY 
a ae Bt EROS ( CCl AN AND ECC2 MAY NOT BE 0) AS WELL AS 
41 
4133 o2soS6 017737 154550 001126 — ORHWC, SBODAT RO aaron INTO BAD DATA 
sis GBe8be PBA Fifon & REP BENG COS Wh aed 
4137 
4 737 fe) S$: TST #ERFLGS ;HAVE ANY ERRORS OCCURED? 
ui38 S8e7a Bpeaas Beste ePR eect! Tis iste 
4180 025114 005037 OSe420 L SWECCe 
4148 ;*REINTO BUFFER IS FILLED WITH EXPECTED DATA OF ALL 0’S 
4144 025120 004037 042532 JSR RO, a#CLAREA ; CLEAR “RE INTO” 
aie pseise eat REINTO ooo #2> sem 
ate pseisé retatatet .WORD O : : FTL WITH EROS 
4148 025132 005037 oozorE CLR QsERFLGS AR FLAG 
4150 
4151 : aa iene ia BUFFER W TH “DISK” BUFFER 
a12§ pSetas eyes Rehan :GO0D BUFFER 
4154 O25144 OS1416 : TEST BUFFER 
4155 Ge5146 9004 1 273. : OF CHECKED 
sige Besiee Geel 2: RETURN POINT Foe_ERROR GER” 
siée atta athtad 3S: ERROR ? TREAD ERROR IO NEXT 
4159 025160 000207 RTS PC j RETURN TO “COMPAR” 
4160 025162 194010 4$: ERROR 10 ; WORD Nos TO 256 ARE 
4162 :257 AND 258 ARE ECC 
4163 : ZEROED OU 
4164 :259 TO 273 TOLERANCE GAP 
SIE 
“1 


025164 900207 RTS PC 


C2RIGBO, RPO4’S/6 DSKLS_ CTRLRI 
CZRIGB.P11 08:30 


SELELELSELESLLILS SELES SEELEELELLL LLL LLIL£ 
o 
“ 


B 


SESPRLOR SS EESPRIORE BISA LIIISSS 
BESRR LON SSB SRR LO Ova Vout Lund chp 


4201 


025170 


360 
025364 
0e$37e 
025376 


08-NOV-77 


012706 


12700 
12701 


1375 
00473 


012737 
012737 
00SO0 


017737 


001000 


60 
042614 


010000 


010000 
ooo001 


000400 
177777 


009001 


is#22e4 


MACY11 30(1046) 
TS6 


052636 
0S2640 


0S2676 


154336 


154302 


154256 


001126 


1$: 


es: 


33: 


O8-NOV-77 08:S4 PAGE 105 
WRITE HEADER AND DATA | 


MOV #STACK, SP ;RESET STACK 
MOV wSECGAP RO s POINTER 

MOV #304. ,Ri 3 COUNT 

cLR (RO)+ ‘CLEAR SIMULATED “DISK” AREA IN CORE 
BNE 1 : 

ISR PT, JUCLDISK THIS IS USED TO SET GENERAL REGISTERS 
;*THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 

MOV SFMT22,98WCYL  ; FORMAT 22 = 16 BIT WORDS AND 

MOV #1, 98WSECTR iYonerss, T cnated 

CLR 3 BhiKEY Y1 

CLR Eve KEY yee E 

MOV osece #FNWORD KEY DATA WORDS 

JSR RS, aBCRC :GO TO CALCULATE CRC 

GCR 


;*#THESE ARE REGULAR SETUPS FOR THE RH11 AND “WRFROM” BUFFER 
MOV 8-260. , JRHWC HEADER WORDS 

MOV SuREROM RO iFrese Tuo MENSTRUCTIONS GE GETS 

MOV RO, JRHBA W 9 Ro AND 

MOV eFMT22, (RO)+ ence Se neal Gazos” 


R=0 
MOV #1, (RO)+ TRACK=O, SECTOR=1, KEYS=0 
CLR (RO)+ ik Yl= 
CLR (RO)+ KEY2= 
MOV #256. ,RS TER 
nov a-1, (RO)+ 5 COUN ALL ONES FOR DATA 
BNE ANCH IF DATA NOT COMPLETE 


3 ; BR 
MOV #1,@RHOST ;TRACK=0 SECTOR=1 


MOV JSWRIFOR, ORL get READY FOR og UI area ANC 


TA W IN Ri 
CLR @sERFLGS LEAR ERR FL 
MOV SF MTee, JRHOF fe T JM tie BIT WORDS) 
CLR Pa s CL NOE 
JSR C, a#COMWHD WRITE AEADER AND DATA INTO “DISK” AREA 


pt Sa ont Le PROGRAM cores it ven jo) 9a peTHe PRINTOUTS 
San U DATA IS. ADER ON “DISK” 
iaIs “Goo” IE. a My Ss aon ¥ e CHECKED 0 Fee JF iT Is 


aALL ONES ANCE GAP T 
STHEY ARE ALL ZEROS, ~ ECC] AND ECCS ARE NOT CHECKED. 
aRHC IS CHECKED TO BE = 0 


MOV @RHWC , SBODAT ;LOAD WORD COUNTER JUST IN CASE 


SEG 9107 


ZRIGBO,RPO4’S’6 DSKLS CTRLRI 
ZRIGB.P11 O8-NOV-77 08:30 


001401 
104040 


025410 
OeS4ie 


005737 
005037 
005037 


OG2006 
O0Se416 
OSe4e0 
042532 


042532 


0G2006 


043510 


MACY11 30(1046) 
TS? 


6S: 


4S: 
Ss: 


O8-NOV-77_ 08:S4 PAGE 106 
WRITE HEADER AND DATA 2 


BEQ 6$ + RHC BE = 

ERROR 40 aris My rie AFTER A WRITE 
ADE O DATA IS COMPLETED 

TST JsERFLGS unve ANY ERRORS OCCURRED? 

CLR @eWECC] :CLEAR ECC 

CLR aaWECCe ;CLEAR ECC 


;#FILL “REINTO” BUFFER WITH EXPECTED DATA OF ALL 1’°S 


JSR sCLAREA ;FILL REINTO BUFFER 
R NTO FROM 
REINTO+<255.#2> ;TO 
. WOR’ -1 :DATA 
ISR RO, 28#CLAREA ‘FILL REST 
RE INTO+< 256. #2> : FROM 


RE INTO+<272. #2> ;10 
0 ;DATA 


CLR asERFLGS ;CLEAR ERROR FLAG 
;#NOW COMPARE “DISK” BUFFER WITH “REINTO” BUFFER IN CORE 
go", 70 RO, J#COMPAR 
Brak ey BUFFER 
273. WORDS CHECKED 
4$ PRET RETURN POIN T FOR ERROR BE RRER 
S$ : RETURN POINT FOR 2 
ERROR 7 > READ ERROR 10 NEXT 
RTS PC RETURN TO COMPARE 
ERROR 10 ; WO NOS 1 TO 256 ARE 
;DATA WORDS 
;WORD NOS 257 AND 258 
;ARE ECC WHICH HAVE BEEN 
; ZEROED 
;WORD NOS 259 
;IS DATA GAP 
sue NOS 260 TO ih 
;ARE TOLERANCE GAP 
RTS PC RETURN TO COMPARE 


ZRIGBO, RPO4/S~ _DSKLS cre. MACY11 ys O8-NOV-77 08:54 PAGE 107 


<SRIGB.P11 NOV-77 08: WRITE HEADER AND DATA 2 SEG 0109 
4267 
webs 025526 012706 6001000 MOV #STACK, SP ;RESET STACK 
4270 25540 912700 1320 MOV #SECGAP, RO ; POINT R 
4271 025544 12701 0460 MOV #304. ,R ? COUNTER 
4272 O25550 0127 000377 1$: MOV #377, (RO)+ ; LOAD SIMULATED “DISK” AREA WITH 377 
4273 025554 005301 DEC Ri ; 
4274 GeS556 001374 BNE 1$ 
4275 S60 004737 O42614 ISR PC, CLDISK :THIS IS USED TO SET UP GENERAL 
4e76 ?REGISTER CORRESPONDENCE 
4e78 ;*THESE ARE TO BE SETUP FOR DISKLESS USE ONLY 
¢ 
4280 025564 012737 010000 oS2636 MOV eFMT22, JUWCYL sFOnAT 2=16 BIT WORDS AND 
4282 O25S72 012737 O00401 oS2640 MOV #401, J8WSECTR j TRACK= I, gecTOR= 1 
4283 025600 37 OS2642 CLR aewKEY 1 ii Y1=0 
4284 DeS604 0050. 052644 €LR aeWKEY2 KEY2=0 
4285 10 0127 000400 052676 MOV #256. ,a"FNWORD 256 DATA WORDS 
4286 025616 O04S37 O4402e JSR RS, awCRC :GO TO CALCULATE CRC 
428 O2eS62. 26. WCYL 
4288 052646 GCRC 
4230 ;#THESE ARE REGULAR SETUPS FOR RH11 AND “WRFROM” BUFFER 
4292 025626 012777 177374 153776 MOV #-260. , IRHWC ;256 DATA WORDS 4 HEADER WORDS 
4293 025634 012700 602110 MOV #WRF ROM, RO THESE TWO INSTRUCTIONS GET 
4254 ADDR. OF ROM INTO RO 
4236 025640 010077 153770 MOV RO, IRHBA SAND BUS ADDRESS REGISTER 
4237 025644 012720 010000 MOV eFMT22, (RO)+ FORMAT =16 BIT WORDS 
4299 025650 012720 o00401 2s: MOV #401, (RO)+ ; TRACK= 1, SECTOR=1, KEYS=0 
4300 025654 gos920 CLR (RO)4 ik Y1=0 
4301 025656 SO CLR (RO}+ Y2=0 
4302 025660 012705 oo0400 MOV #256. RS ‘COUN NTER 
4303 beS664 012720 OS2S25 3S: MOV #052525, (RO)+  ;MOVE ALTERNATE ONES FOR DATA 
4304 0256 305 DEC RS : COUNT 
4305 72 1374 BNE 35 ‘BRANCH IF DATA NOT COMPLETE 
4306 74 012777 000401 153742 MOV #401, IRHDST *TRACK=1 SECTOR=1 
4308 
4309 025714 013711 o02064 MOV JeWRIFOR, IR1 ;GET READY FOR WRITE HEADER 
4310 Al abate WITH 62 IN RHCS1 
4311 720 095037 ocOd2006 CLR QsERFLGS >CL ERROR FLA 
4312 025724 012777 O10000 153716 MOV SF MT2e2, JRHOF ; FORMAT BIT=1(16 BIT WORDS 
4313 6732 905077 153714 CLR @RHC YL INDE NDER=0 
4218 025736 004737 Of>462 ISR PC, J#COMWHD 5 CRT E SE ADER AND OSTA INTO “DISK™ CORE 
4316 ; #1F Mg 9 PROGRAM aM COMES BACK HE WI THOU? “RROR PRINTOUTS 
4317 i #EROM oy INE | THA MEANS AL. HEADER IN 
4318 ; *° DISK" fs E800 DATA QO BE CHECKED 
4219 !#IF IT IS ALL OS2SeS AND SURITE DATA GAP AND 
43e0 ?*#TOLERANCE GAP TO SEE IF THEY ARE ALL ZEROS. 
4322 ;*#RHWC IS CHECKED TO BE = 0 


RJGBO Ve 
cS eB cet 


Get5te2 


“S°6 DSKL 


-NOV- 
017737 
00140 
10404 


000207 
104010 


C0207 


Bp MACY11 30( 1046) 
30 766 


153664 001126 


002006 
0Se416 
O0Se420 


O42eS3e2 


042532 


902006 


043510 


6$: 


4S: 
S$: 


BRP enOBis re “ick 


MOV @RHWC , SBDDAT ;LOAD AND TEST FOR ZERO 
BEQ 6$ ;RHWC Btou OUL 
ERROR 40 ; RHWC AFTER @ WRITE 


D NOT = 0 
;HEADER AND DATA WAS COMPLETED 
;#ONLY ECC1 AND ECC2 ARE NOT CHECKED 


TST DeERFLGS ;HAVE ANY ERRORS OCCURED? 
CLR aeWECC] ‘CLEAR ECC 
CLR aeWweECCe :CLEAR ECC 
;*#FILL “REINTO” BUFFER WITH EXPECTED DATA 
JSR RO, a8CLAREA SILL REINTO BUFFER 
R' ;F ROM 
RE'NTO+<255. #2> TO 
. WORD 525 :DATA 
ISR RO. J#CLAREA :FILL REST 
tNTO+<256.#2> : FROM 
RE INTO+<272. #2> :TO 
WO :DATA 
éLR a*eERFLGS :CLEAR ERROR FLAG 
;#NOW COMPARE “DISK” BUFFER WITH “REINTO” BUFFER IN CORE 
ISR RO, J8COMPAR ; CHECK 
REINTO ; GOOD BUFFER 
DISK TES FER 
273. :NUMBER OF WORDS CHECKED 
4S ?RETURN POINT FOR ERROR HEADER 
cs $RETURN POINT FOR ERROR DATA 
ERROR ? :READ ERROR 10 NEXT 
RTS PC tRETURN TO COMPARE 
ERROR 10 ‘WORD NOS 1 TO 256 ARE 
:DATA WORDS 
;WORD NOS 257 AND 258 
tARE ECC WHICH HAVE BEEN 
: ZEROED 
:WORD NOS 259 
:IS DATA GAP 
‘WORD NOS 260 TO 273 
tARE TOLERANCE GAP 
RTS PC !RETURN TO COMPARE 


CZRJIGBO,RPO4’S-6 OSKLS CTRLR1 
C2RJGB.P11 


0261 


O08-NOV-77 


001374 
004737 


012737 


04 
013737 
104037 


08:30 


001000 
0S132e0 
199799 
042614 


010000 
000' 
O440ee 


177374 
i) 


010000 


153420 


002064 


1 
paanoe 
OU 
iatlata 1 
000001 


042220 
002000 


00163€ 


MACY11 30(1046) 
T60 


0S2636 


052676 


153440 


15337 


1$3372 
1S3344 


153334 


00i714 
001122 


1$: 


es: 


O8-NOV-77 08:S4 PAGE 109 


WRITE HEADER AND DATA 3 


MOV 


MOV 


aSTACK, SP 
#SECGAP RO 


#304. Ri 
#-1, (RO)+ 
Ri 


be cuorsk 


;RESET STACK 
s POINTER 
SPEAR DISK AREA TO ALL ONES. 


i THIS IS USED TO SET GENERAL 
; REGISTERS 


ARE TO SET UP FOR DISKLESS USE ONLY 


eFMT22, DAWCYL 


@eWSECTR 
SWKEY 


SWKEY: . n 
RE sathe MORO 


ERA 22=16 BITWORDS AND 
tages , SECTOR=0 


b DATAW 
fs TO CALCULATE CRC 


ARE REGULAR SETUPS 


8-260. , JRHWC 
#WRFROM, RO 
RO SRHBA 
#253 

senios” PRo)+ 


(RO)+ 

RS 

58 

QRHDST 
JsWRIFOR, aR1 
QsERFLG 
aeniee, SRHOF 
SHO jaar 


#GO,@RHCS1 


PC geevrers 
ape, aacs 


3 
@BRHCS2, J#SBDADR 


37 


3256 DATA WORDS 4 HEADER WORDS 
;FROM BUFFER “WRFROM’ 
ADDRESS 
BIT WORD 

ICYLI NOER= 
Oat TRACK=0,KEYS=0, ALL DATA=0 
RANCH IF Biel gs) NOT COMPLETE 
RACK=0, SECTOR=0 
;GET neoRY FOR WRITE HEADER 
;AND DATA WITH 62 IN RHCSi 

OR FLAG ‘ 
F =1 16 BIT WORDS 
; CYLINDE 


sagt DIAGNOSTIC MODE 


;THIS GO SHOULD SET PGE 
: SAVE REGISTERS 
:BRANCH IF GOOD 


PGE OID NOT SET WHEN A WRITE 
:WAS ATTEMPTED WITH ONE TN PROGRESS 


SEG Siil 


CZRIGBO,RPOW’S 6 
C2RIGB.PL1 


OSKL 
O8-NOV-77 


pies 
= 8:30 


MACY11 30( 1046) 
Tél 


O09 


O8-NOV-77 08:S4 PAGE 110 
PROGRAM ERROR RHCS2 #10 


THESE TESTS ARE THROUGH THE MAINTAINABILITY REGISTER - RHMR 


THe ater R GAP AND “HAT TER ARE ALWAYS READ AS 
sae hago tees if aA R WHAT IS IN THE SIMULATED DISK AREA 


THE HEADER CONSISTING OF CYLINDER ADDRESS, SECTOR, 
TRACK AND THE KEYS ARE READ FROM LOCATION 

CYL:, SECTOR KEY hi, KEY2 AND NOT FROM 
HEADER: ON SIMULATED’ DISK 


CRC_IS READ FROM SIMULATED DISK LOCATION WCRC: 
HEADER GAP IS ALWAYS READ AS ZEROS NO MATTER 
WHAT IS ON THE SIMULATED DISK AREA 


THE DATA SYNC _IS READ FROM HOWSYN: 
ON SIMULATED DISK 


ALL DATA IS READ FROM SIMULATED DISK DISK: 


SEG Oliz 


JO9 


C2RIGBO,RPO4-S“& DSKLS CTRLRI MACYL1 30(1046) O8-NOV-77 08:54 PAGE 111 
CZRIGB.F11 O8-NOV-77 08:30 Tél PROGRAM ERROR RHCS2 #10 SEG D112 


8 
ar 026332 O12706 001000 MOV aSTACK, SP ;RESET STACK 


09 


Rigo RPOY’S“6 DSKLS_CTRLRL MACY 11 39 LOS? O8-NOV-77 08:S4 mt lle seo 0 
c1i4 


cZR 
C2RIGB.P1L O8-NOV- READ HEADER AND DAT 


S 
4456 026716 O12706 co1000 MOV eSTACK,SP ;RESET STACK 


LOS 


CZRJGBO,RPO4’S’6 DSKLS CTRLR1 MACYL1 301046) O8-NOV-77 08:54 PAGE 113 
CZRIGB.P11 O8-NOV-?77 08:30 Té3 


READ HEADER AND DATA 2 SEG O11 
446 : 
w4e3 Oe7302 012706 Cc01000 MOV eSTACK, SP ;RESET STACK 
Mees 
4465 


ESRB ATI “OB-RBv=97 "Oa: 30 | MACYE! SPEUONG? RPRCNAZAbER Bnd ata SY SEG 0116 


CZRJGBO, RPOY’S 6 me crm MACYi1 30(1046) PP oa oth G 08:54 PAGE 115 

CZ2RIGB.P11 O8-NOV-77 08:30 Tes WRITE DATA SEG 0117 
4473 
4474 030226 012706 001000 MOV STACK, SP ;RESET STACK 


pee 4 042532 JSR RO GOCLARER i ChE SIMULATED DISK 


B30e49 
4478 14 “WORD 015K+776 :TO 
4479 paneeo reat WORD tp e400 :DATA 
042532 JSR RO, J8CLAREA ;CLEAR READ INTO BUFFER 
NT : FROM 
INT0+776 :TO 
030262 0 :DATA 





;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 
047500 MOV sentee aecyL ;CYLINDER 0 16 BITS PER WORD FORMAT 
CLRB COTR+ :T 
047502 MOVB 3 aSECOTR ;SECTOR 1 
CLR ok : key a3 
CLR eKEY: KEY 
047560 MOV #10. , a#DAWORD ORDS 
CLR 8 ianig ts OF READ COMMAND 
isk iS, 2eCRC 0 CALCULATE CRC 
WCRC 
;#THESE ARE REGULAR SETUPS 


4501 004737 042614 JSR PC, a8CL ISK NERAL REGISTERS 
45 2 013741 bosdes MOV sue pth iR ee ' NTo Rnesicro 
127 i? 6 151256 MOV hatte 31 

4504 4 012777 003154 151252 MOV eRe Tit @RHBA OC; wo lie OF READ BUFFER 
Webe G303ee 11766 boboDd Mo ee PER Gye 
4506 030366 112766 000001 MOV PE cRGYIE 
4507 030374 Ol 151244 MOV topts SP) ost ; 
4508 O30400 012777 O14000 151242 MOV sPMToet ECT, @RHOF ay sige eee 
4509 ; ION INHIBIT BECAUSE 
wetg 905077 151240 CLR arnca : a 
4512 030424 005037 06 CLR ERFLGS He RROR FLAG 
4513 030430 004737 C4736 SSR Bee SeCORHD SEAR 
4515 ;#IF THE PR ACK HERE WITHOUT ERROR PRINTOUT 
4518 : :#FROM “COMHD” ROUT Re N MEANS DATA IS TO BE CHECKED 
4518 per on NTO “REINTO” oBUEFER WILL 
4519 ae cH PE KED BE CHANGED 
deel i 3 ORE RON Fight gi p BENIN UR WITH a DATA AND CHECKED 
4523 030434 005737 o02006 vet QeERFLGS HAVE ANY ERRORS OCCURED? 
4504 O30442 004037 O4e532 JSR RO, J#CLAREA FRB BUFFER 
dees 3046 09 110 WRF ROM 

2b 03106 WRF ROM+776 ro? 
Wee? 30452 900000 0 ‘DATA 


CZRJGBO,RPO4Y’S/’6 DSKLS CTRLRI 
08: 30 


CoRIGB.P11 08-NOV-77 
4529 0304S4 037 
4630 110 
4531 132 

O30464 1774 


é BR 
aR Beasagér 


Oo 
oO 
— 


o04eS32 


000200 


MACY11 30(104%6) 
Tob 


047620 


1S: 


3$: 


4S: 


es: 


O8-NOV-77 08:54 PAGE 116 
READ DATA 


JSR RO, J#CLAREA ;FILL EXPECTED DATA 


WRF ROM FROM 
WRFEROM+22 :T 

177400 *DATA 
;*#NOW READ DATA BUFFER IS CHECKED 
MOV SWRFROM, RO : TA 
nov SREINTO.R1 6008 eae 


COUNTER 

& "@BERWORD ;F FR or WORD NO 
CMP &R 4) (R14 COMPARE eo WITH READ BUFFER 
MOV -(RO), : 
MOV ashi) Sasep pot ; 
SUB 2, aet ; 


oe 
mg 


TST ReERPLGS AL 
BNE : ‘IF Ss oe "BON no} HERE HEADER 
4S BRANCH T TO "AVOID. "PRINTING NEXT ERROR 
ERROR 5S ; WORD NO 1-10 ARE DATA 
: NOS 1-256 HAVE NOT BEEN 
; a AND SHOULD BE 
;ZERO IF O HER Ruan SE ZERO 
;WRONG NUMBER OF WORDS HAVE 
*BEEN READ IN THE DISK NOW 
:CONTAINS 177400 ALL 256 
H T ONLY 10 os 
: SHOULD READ IN 
CMP (RO)+, (R1)+ ;UNDO -(RO) AND -(R1) FOR ERROR 
MOV aSWR, -(SP) *GET SWITCH SETTI 
BIC #177177, (SP) :KEEP ONLY SWITCH 7 AND 8 
CMP #SWO7, (SP) + :I§ 7 SET AND 8 RESET 
DEC R2 ; COUNT 
BNE 1§ :BRANCH IF NOT COMPLETE 


SEG 9118 


Bannon 


re 
3 


Faututatatatatatatata 
hh 
—-OWONOU £Wle-O 


RPOY-S-6 


Pll 


7 
0207 


030734 


OSKLS_CTRLRI1 


O8-NOV-77 08:30 


004037 

4 
070707 
b18701 
010021 
103774 


183g 
Ossie 


004737 


77776 
3234 


042532 
042532 
A777 


1466 


042532 


043340 


MACY11 30(1046) 
Té6 


18: 


es: 


O8-NOV-77 08:S4 PAGE 117 


READ DATA 
DATA TABLE 
O WORDS OF 196090 707 
N16 WOR WE H ZERO F On ING FROM RIGHT 

to LEFT (EG. 177776, 17777 773 ETC) 
MOV eSTACK, SP ;RESET STACK 
-#SET UP INTO® | FOR wil TO B 
Mov eRETATO STARTING SOBRE 
MOV Ha BRL ; OOF ORRAT 16 BIT WORDS 
MOV w40d ( (Ri) : anor TOR=1 
CLR (R1)4 sKevis =0 
CLR (R1)+ 
ISR @aCLAREA faite CO REINTO™ BUFFER 
- HOR NTO04<4#e> 
[WOR NT04#<23.8#2> TO 
:WORD 070707 :DATA 
MOV 7777 Y TO FLOAT 
mov BAC IA TBLC Ry. #2>, Ast it RESS WHERE 177776 GOES 
SEC : CAR 
ROL Rp igeye 00 E pit LEFT 
Bcs ?BRANCH IF 16 NOT DONE 
JSR iF THE REST OF BUFFER WITH O 
35RD eh 765 25° #2> EAB 
:WORD REINTO+776 >TO 
. WORD ;DATA 
;#SET UP pipe DISK WITH WHAT IS TO BE READ 
ISR RO, a8CLAREA ;FILL “DISK” BUFFER 
- WORD Bik + FROM 
"WOR f8ksc19. #2> :TO 
» WORD :DATA 
MOV ® TTING Y TO FLOAT ZEROS 
MOV W777, 9 oF AR } ic RODRESS WHERE 177776 GOES 
nov RO, (RL)+ s BOVE INF N FLOATING O 

L RO ONE BIT LEFT 
BCS 2s +a IF 16 NOT DONE 
ISR RO QsCLAREA ‘AOR THE REST OF BUFFER WITH 1777 
WORD O16K4<36.#2> 
7 WOR 013k +776 TO 
"WOR 177777 ‘DATA 
ISR PC, JBWRCHHD WRITE CHECK HEADER AND DATA 


CYLINDER O, TRACK 1, SECTOR 1 


SEG 0119 


C2RJGBO,RPOY’S’6 OSKLS CTRLRI 


C2RIGB.P11 O8-NOV-77 08:30 
4625 
4626 
4627 
SR pere Bare Brn 
ue50 O3e5¢0 548 042220 
4631 030754 022637 001712 
760 1406 
as 0207 be Baas 040000 
4635 588 ree eg 
4636 030772 OO00401 
4637 
4638 
4629 
4640 
4641 030774 104017 
wey 
4643 
4644 
4645 
446 
4647 
4648 030776 012700 002110 
4649 031002 O12720 010000 
4650 031006 Ole7e0 OO040! 
4651 0631012 o05020 
465 031014 oo5020 
4654 031016 004037 oO4e2532 
4655 031022 002120 
465 031024 002166 
4657 031026 070707 
4659 931030 012700 177776 
4660 031034 O12701 002170 
4661 O31040 010021 
031042 900261 
466 Bae 006100 
4o54 1046 103774 
4666 031050 004037 o4e2532 
Sees O310ee opaTbe 
4669 B31 0E8 0000 
weoT 
4678 031062 005037 ooz006 
4674 031066 004037 043510 
4675 031072 002110 
4676 031074 003154 
4677 031076 990400 
4678 031100 031106 
4673 021102 O31lle 
4680 O3110€ 104004 


MACY11 30(1046) 
T67 


3$: 


4S: 


S$: 


&$: 


O8-NOV-77 08:S4 PAGE 118 
WRITE CHECK HEADER AND DATA 


;*#IF THE PROGRAM COMES BACK HERE THEN WRITE CHECK 
;#HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TO BE TESTED 


MOV BIR, (SP) -(SP) 
I 
5 de UTREG 
CMP seis, aecse 
BEQ 4 
BIT BCE, IR2 
BEQ 3 
ERROR 1 
BR 4§ 
ERROR 17 


;GET UN 1 2 NUMBER 
sony rey ee BE SET 
; yt RS 


tWRITE. CHECK ERROR HIGH? 
eae I OB NOT DUE TO “HCE” 
{RHO CONTAINS FAILING 


’ 

H ONTA 

: OF Ruee OfORS IN MORY 

:THE DISK THAT DIO NOT CONPARE 

TR AND SC WILL BE SET DUE TO 

;HCE CORR’ cTLy WAS NOT SET BUT SOME 
:gits OTHER THAN IR 

: UNIT NO. WAS SET 


;*#NOW CHECK MEMORY TO SEE IF NOTHING GOT DESTROYED 
;*#FILL “WRFROM” WITH WHAT SHOULD BE IN “REINTO” THEN CHECK 


MOV BWRFROM 

MOV aFMT2e thos 
MOV #401, (RO)+ 
CLR (RO)+ 

CLR (RO)+ 


JSR RO, J 8CLAREA 
.WORD WREROM+<4x2> 


-WORD WRFEROM+<23.#2> 


;STARTING ADDRESS 
: CYLINDER 
:TRACK=1, SECTOR=1 
:KEY1=0 

i KEY2=0 

;FILL “WRFROM” BUFFER 
FROM 


310 
;DATA 


‘WORD 070707 
MOV #177776,RO GET TING READY TO FLOAT O 

MOV BHRF ROM <24. #2>, Ri; STARTING ADDRESS WHERE 177776 GOES 
nov RO, (R1)+ nove che N FLOATING O 

ROL FT 

BCs og Ger 9 One IF 3 aT bo DONE 


JSR RO, J8CLAREA 


“WORD WREROM+<4O. #2> 


. WORD " tuhmttteiobe 


;FILL THE REST OF BUFFER WITH O 
;FROM 


:DATA 


;#NOW THE READ BUFFER WILL BE CHECKED 


eLr OSERFLG 
JSR RO, J#COMPAR 
OM 


;CLEAR ERROR FLAG 


:RE TURN POINT FOR ERROR DATA 
EAD NEXT ERROR S 


SEG 0120 


eenyano RPO4/’S’6 DSKLS =CTRLRI 


GB.P11 


O8-NOV-77 08:30 


031110 ocd0e07 
O3llie 104005 


031114 000207 
031116 000240 


MACY11 30( 1046) 
Te? 


7$: 


10$: 


E10 


Be Overs O8:S4 PAGE 1 
WRITE CHECK HEABER AND DA 


RTS PC 
ERROR 5 
RTS PC 
NOP 


ta 


45 3t y TO _ COMPARISON SUBROUTINE 
;OATA fh RELNTO ar Ad GOT 
; CHANG D R A WRITE 

CK HEADER AND one Qarn COMMAND 
WO D_NO_ CONTAINS . WORD 
;NUMBER THAT GOT CHANGED 
;RETURN TO COMPARISON SUBROUTINE 


;ONLY A BRANCH POINT 


SEG 0121 


CZRIGBO 
v 


GB.P11 


RPO4’S “6 


oO 
Ww 
~ 
~ 
fv 
fu 


BOG BWWWWLO Wau 
Pb hh 


TUT 
ROEN GrLwOwoT LOL 


renee 

rrco 
states 
ara os 
Quy 
NN 


runoty furorurorory §furorurufy 
2 Zegunn 


DOGG BOOB BOWED 
rr 
rats 


oO 
Ww 
—- 
% 
£ 


OSKLS_CTRLR1 
O8-NOV-7"7 08:30 


o00r- 
——H 2 
SNe 


oO 
m Ww 


i pp 
BN 
oO 
Pe 


8 ae-rs8 


000 + 


001000 


00000! 
003154 


177776 
003214 


042532 


O42S3e 


043652 


MACY11 30(1046) 
T67 


1$: 


es: 


3$: 


4S; 


F10 


O8-NOV=77 08:54. PAGE 120 
H 


WRITE CHECK HEADER AND DA SEG Size 


;*DATA TABLE 


*TOTAL OF 32 WORD N tating . " 


CONS 

:%16 WORDS FLOATING ON NES ( 4, 10) 

#16 WORDS OF FLOATING ZEROS Fes. 1 7558! 177775) 
MOV #STACK, SP ;RESET STACK 

;*#SET UP “REINTO” FOR WHAT IS TO BE READ 
MOV #1,R0 ;GETTING READY TO FLOAT 1 
MOV #REINTO,R1 :STARTING ADORESS WHERE 1 GOES 
MOV RO, (R1)4 :MOVE F oat 1 
ROL RO :GET 1 BNE IT LEFT 
BCC 1$ :BRANCH IF 1 Nor DONE 
MOV 81777 {GETTING Rea Y TO LOAT 
MOV BRE INTOR CIE. *2>,R1 i ARTING ADDRESS WHERE 177776 GOES 
MOV RO, (R1) ;MOVE IN FLOATING O 
SEC :SET CARRY 
ROL RO ; GET 0 ONE BIT LEFT 
Bcs 2s :BRANCH IF 16 NOT DONE 
ISR RO, J#CLAREA ;FILL REST OF BUFFER WITH 1 


"WORD REYNTO+<3e.%2> FROM 


"WORD REINTO+776 >TO 
“WORD 1 :WITH DATA 
:#SET UP SIMULATED DISK WITH WHAT IS TO BE READ 
MOV #1,RO jGETT NG READY TO FLOAT 1 
MOV sOtSk,R1 :STAR IN G ADDRESS WHERE 1 GOES 
MOV RO, (RL)+ MOV E LOATING 1 
ROL RO :GET 4 ONE BIT LEFT 
BCC 3s i ORANCH F 16 NOT DONE 
MOV #177776,R ;GETTING READY TO FLOAT © 
MOV sbiske< 16. #2>,R1';STARTING ADORESS WHERE 177776 GOES 
MOV RO, (RL) ;MOVE FLOATING O 
SEC :SET CARRY 
ROL RO :GET O ONE BIT LEFT 
Bcs 4% :BRANCH IF 16 NOT DONE 
ISR RO, a#CLAREA ;FILL REST OF BUFFER WITH G 
WORD DISK+<32. #2> :FROM 
.WORD ODISK+776 ;TO0 
‘WORD 0 :WITH DATA 
ISR PC, J8WRCHDA ;WRITE CHECK DATA 
:CYLINDER O, TRACK 1, SECTOR 1 
“KEYS O, 32 WORD 


;#IF THE PROGRAM COMES BACK HERE THEN WRITE cH cy 


K 
;#HAS BEEN COMPLETED NOW WRITE CHECK ERROR BIT IS TESTED 


GOGWORDRWE -B 


04S “6 tee Mo MACY11 4 O46) Ps a ae 44 OBR" PAGE 121 


(1 
70 


O8-NOV- E CHECK DATA SEG D122 
1260 013746 001774 MOV QSUNIT, -( SP) ;GET UNIT NUMBER 
Legs 71 0100 BIS #IR, (SP) : ONLY BIT HOULD BE SET 
1 73 42220 JSR PC, J#PUTREG :SAVE REGISTERS 
1274 2637 O017le CMP (SP)+, aacSe :COMPARE RHCSe 
1 1407 BEQ 6$ : H IF GOOD 
1302 032737 oO40000 001712 BIT #WCE, aecse "WRITE CHECK OR HIGH? 
1310 0014 BEQ $ ; BRANCH IF ERROR NOT DUE TO “WCE” 
13le 10401 ERROR 17 : CONTA FAILING WORD 
1314 000401 BR 6S :R uf TA oste 
[OF T N ENO Y FROM 
:THE DISK THAT DID NOT COMPA 
:T AND SC WILL BE SET DUE TO WCE 
031316 104017 S$: ERROR 17 *WwCE WAS C cThy NOT SET 
:BUT SOME BIT OTHER THAN 
:ITR AND UNIT NO. WERE SET 
;#NOW CHECK MEMORY _TO SEE IF ANY THING GOT DESTROYED 
t“FILL "WREROM” WITH WHAT SHOULD IN REINTO THEN CHECK IT 
031320 005037 002006 6S: CLR QSERFLGS ;CLEAR ERROR FLAG 
031324 £03980 000001 MOV #1,R0 SETTING READY TO FLOAT 1 
031330 012701 002110 MOV sWRFROM, R1 : STAR SS WHERE 1 GOES 
031334 010021 7%: MOV RO, (R14 ;MOVE FLOAT 1 
031336 erate ROL R ?GET 1 ONE BIT LEFT 
031340 103375 BCC 7$ ‘BRANCH IF 16 NOT DONE 
1342 012700 177776 MOV #177776,RO0 -GETT READY TO FLOAT 
O31 34e 012701 002150 MOV #WRFROM+<16.#2>,R1 ;S AaTING ADDRESS WHERE 177776 GOES 
031352 010021 10$: MOV RO, (R1)+ ;MOVE IN FLOATING O 
031354 000261 SEC :SET CARRY 
031356 006100 ROL RO :GET O ONE BIT LEFT 
031360 103774 BCS 10$ :BRANCH IF CARRY SET 
031362 004037 042532 ISR RO, a8CLAREA ;FILL REST OF BUFFER WITH 1 
031366 002210 “WORD WREROM+<32.#2> FROM 
9031370 903106 "WORD WRFROM+776 : 
031372 000001 ‘WORD 1 tWITH DATA 
;*NOW THE READ BUFFER WILL BE CHECKED 
1374 004037 043516 JSR RO, a8COMPAR ; CHECK 
1400 002110 WRF ROM :GOOD BUFFER 
1402 003154 RE INTO : TEST BUFFER 
1404 000400 256. :NUMBER OF WORDS CHECKED 
1406 031414 11$ 'RETURN POINT FOR ERROR HEADER 
1410 031420 128 :RETURN POINT FOR ERROR DATA 
031414 104004 118: ERROR 4 ;READ NEXT ERROR S 
031416 000207 RTS PC :RETURN TO COMPARISON SUBROUTINE 
031420 104005 12%: ERROR §& :DATA IN REINTO BUFFER GOT 
: ED AFTER A WRITE 
:CHECK DATA COMM 
:WORD NO CONTAINS THE 
MBER THAT GOT 


< ;NU OT CHANGED 
isgé 000207 RTS PC ;RETURN TO COMPARISON SUBROUTINE 


CeRIGBO 
cer sey ee cet 


RPO4 5-6 DSKLS 
OS-N NOV-77 


031424 900240 


CTRLRI 


08:30 


mMACY11 30 


( 


T70 
T70 


1046) 


13$: 


uRET 


NOP 


-NOV-77 08:54 PAGE 122 
E CHECK DATA 


;ONLY A BRANCH POINT 


CZRIGBO,RPO4’S.6 DSKLS CTRLR MACY11 30( 1046) -NOV-77 :S4 PAGE 123 
<SRIGB-F11 08-RBvt3- 08:3 954 wR Te CHECK ttt 
4806 
4807 
4808 .SBTTL ERROR BIT FUNCTIONAL TESTS 
4810 
He 
4813 031430 012706 001000 MOV #STACK, SP sRESET STACK 
4813 031442 004737 042614 JSR PC, aBCLDISK :CLEAR DISK REGISTERS 
es 
4818 031460 012700 003154 MOV #REINTO,RO ; BUFFER STARTING FOR 3 ERROR 
4 031464 013720 001642 MOV QBRHERI,(RO)+  ;RHERI FRED IN REINTO 
4821 031470 012720 o00000 MOV #0, (RO)+ ‘BITS NOT TO BE CHECKED IN RHERI 
4822 031474 013720 001646 MOV QeRHERS, (RO)+ ; RHER2 STORED IN REINTO+4 
48e3 031500 012720 o00000 MOV #0, (RO)+ BI 5 NOT TO CHECKED IN RHER2 
4824 031504 013720 001654 MOV DBRHERS,(RO)+  :RHERS STORED IN REINTO+10 
ages 031510 012720 0000 MOV #0, (RO)+ :BITS NOT TO BE CHECKED IN RHER3 
4827 031514 013704 001656 MOV JeRHAS, RY ;R4 HAS RHAS 
4828 031520 013705 002016 MOV SOA TTENT RS RS Hs ATA BIT IN RHAS 
4829 031524 012737 O315S2 001110 MOV #2$, JUSLPERR : THAT LOD SET WITH ERROR 
4830 :RETURN POINT TO ERROR 
4831 031532 012737 000003 o01200 MOV #3, D8STMPI tERROR REGISTER COUNTER 
483e 031540 012700 003154 MOV eREINTO, RO *REGISTER BUFFER POINTER 
4834 1S44 O01 1$: MOV (RO)+,Re ;R2 HAS SS OF ERROR REG 
4835 B3ieue 615906 900001 MOV #BITO'RI 'RI WIL pote Br? UNDER TEST 
4836 031552 0527 000040 150056 2S: BIS #CLR, aRHCS2 :CLE Se 
4837 931560 013777 001774 150050 MOV sUNIT,aRHCS2): INSTAT {7 NO. 
4838 031566 O1011¢ MOV 1, :S RR I 
4839 031570 4737 O42220 JSR PC’ J#PUTREG : SAVE REGISTERS 
4840 031574 120537 001732 CMPB RS; aeas ;QNLY IT IN RS SHOULD BE 
4842 031600 001401 BEQ 33 haa 3 FHS IF GOOD 
4843 031602 104020 ERROR 20 tWITH SETTING OF ONE 
4e44 ; ERROR T IN AN ERROR 
4845 tREGISTER, THE CORRESPONDING 
4eue :RHAS BIT’DID NOT SET 
4848 031604 013746 001736 3: MOV aeDS1,-(SP) ;GET RHDS1 
4849 031610 O42716 001100 BIC eVVIPROG. (SP) ;REMOVE VV PROG 
42850 O31614 O22726 140600 CMP BATALERR! DPR! DRY: (SP)+; THESE BITS PLUS VV SHOULD BE IN RHDS! 
4851 031620 OO1401 BEO 4§ :CHECK’’GO’ NEXT, IF THIS WAS OK 
weSe O3l62e2e 104020 ERROR 20 :WITH THE SETTING OF ONE 
4853 : ERROR i T COMPOSITE ERROR 
4854 [OR ATTENTION ACTIVE, OR 
4855 :ONE OF OTHER 
4856 PE NT BITS DID NOT SET 
4858 031624 012777 O00001 150006 4$: MOV #GO, DRHCS! ;GIVE NO-OP 
4859 031632 4737 O42220 JSR PC, JHPUTREG : SAV REGISTERS 
4860 03163€ Oeolle CMP Rl, aRe :GO SHOULD NOT CLEAR ERROR 
486i O21E40 O01416 BEG o$ :FURTHER CHECK OF °GO" FUNCTIONALITY 





CZRIGBO,RPO4’S-6 DSKLS CTRLR1 MACYI1 3011046) O8-NOV-77 08:54 PAGE 1e4 
CZRIGB.P11 O08-NOV-77 08:30 771 ATTENTION WITH ERROR TES SEG O12é 
4862 O31642 010237 O42264 MOV Re, J#REGAOR FAILING, REGISTER 
4863 031 0101 G01 124 MOV 498850087 00D DAT 
4864 O0316Se 013737 OO1712 001126 MOV aet 2, J#SBDDAT AD onTAY 
4865 031660 104001 ERROR "GO" WITH NO-OP CHANGED 
4866 oe REGISTER 
4868 031662 013746 001736 S$: MOV aeDs1 -(SP) ;GET RHOS1 
4869 031666 042716 001100 BIC PROG | (SP) :CLEAR VV AND PROG 
4870 031672 O22726 140600 CMP BAYATERR! DPR! DRY; (SP)+;GO SHOULD NOT CLEAR any BITS 
4871 031676 001401 BEQ zs i CHECK NE XT ERROR BIT IF 
4872 033700 104020 ERROR 2 GO” WITH NO-OP SHOULD NOT CLEAR 
4873 tATA AND/OR ERR 
4874 
4875 
4878 :#THIS IS THE MAIN BIT TESTING CONTROL LOGIC 
4878 
4879 031702 006301 73: ASL R1 ;GET NEXT BIT TO THE LEFT 
4881 Oairoe OsiooR Bye s«stRO) oe ShIS BIT TO Be TESTED 2 
4882 031710 001374 BNE a :IF NOT eet NEX Fone 
4883 031712 000717 BR 2s [IF TO BE TESTED, GO DO IT ! 
488S 031714 005720 10$: TST (RO)+ ;ADVANCE RO TO NEXT ERROR REG. 
4886 031716 005337 001200 DEC aeSTMP1L j REGISTER COUNTE 
4887 031722 9001310 BNE 1§ :DO NEXT ONE, IF 3 NOT COMPLETE 
dees 
4890 ;#NOW AFTER SETTING ATA IN RHOS1 “1” IN RHAS AT THE 
4833 :#DRIVE POSITION SHOULD CLEAR ATA IN RHDS1 
4893 031724 004737 O42614 11S: JSR PC #cL DISK ;CLEAR 
4894 031730 012737 031764 001110 MOV wil SLPERR ; ERROR RETURN 
489S 031736 012714 177777 MOV oR4 ;SET BIT IN RHAS ATA IN RHDS1 
4896 031742 6137 §02016 147706 MOV 1, TENT DRHAS :WRITE 1 INTO DRIVE BIT POSITION 
4897 031750 0047 042220 JSR PC, J#PUTREG i SAVE REGISTERS 
4898 031754 105737 001732 STB as as* :THIS SHOULD BE ZERO 
4899 031760 001401 BEQ 125 
4900 031762 104020 ERROR 35 sMOVI A "1" INTO RHA 
4901 A DRIVE BIT POSITION 
4a0¢ :DID NOT CLEAR IT 
4904 031764 013746 001736 128: MOV a80S1,-(SP) GET 1 
490S 031770 042716 001000 BIC #PROG' (S i GBsK' PR RAMABLE 
4906 031774 O22726 O40700 CMP #ERR! VV! DPR! DRY, (SP)+ 
4907 ;RHDS1 SHOULD HAVE THESE BITS 
4908 BUT ATA SHOULD BE CLEARED 
49039 032000 901401 BEQ 13$ iC 1 If G00 D 
4910 032092 i04020 ERROR 20 iM Tt pil TR HAS AT THE 
4911 iD RIVE "gi POSIT ION ID NOT 
wai pon ees 
4313 032004 022737 177777 OO171E6 138: CMP #-1,08ER1 :RHERI SHOULD NOT CHANGE 
4916 022014 104020 ERROR 20 *RHERI WAS CHANGED BY CLEARING 
4517 :RHAS BY MOVING "1" 


K10 


C2RIGBO,RPOY’S“S OSKLS _CTRLRI MACYI1 305 dio -NOV-77 08:54 PAGE 125 
EZRIGB.F11 O8-NOV-77 08:30 TFENTION WITH ERROR TEST SEG 0127 


4918 ;THE DRIVE BIT POSITION 


CZRIGBO,RPO4-S’& OSKL 
C2RIGB.P11 08-NOV- 


4 032020 012706 
926 


deae 

4 032044 004037 
4933 003154 
4934 004152 
4935 032054 o00000 
4936 

4937 

4939 032056 012737 
4940 032064 1 7 
4941 032070 112737 
4942 p3cr7s 

4943 basi 

4944 106 012737 
usue O38130 

4946 1 7 
4947 032124 047500 
4948 O32126 051400 
YSHg 

4950 

ages 032130 004737 
4953 O36134 eae 
4954 140 127 
49SS 032146 012777 
4956 032154 11s7 0 
49S7 032160 1127 
4958 Basie 012677 
4959 172 012777 
4960 

wee 32200 oosor7 
4963 Bassl® S2777 
4964 Seee4 005037 
4965 032230 004737 
4966 

4968 

4969 

4970 

4971 

497 

497 

ueze 32234 gosna7 
49 03 240 004 33 
sare B35 an BOS10E 
4979 O3 sécé 000006 


_CTRLRI 
7 08:30 


001000 
042532 


042532 


Bueeae 


MACY11 tae 


047500 
047502 


047560 


147464 
147460 


oooco1 
147450 


147412 


=-NOV-77 08:54 PA 26 
ATTENTION WITH ERROR TEst 


MOV #STACK, SP ;RESET STACK 
ISR RO, JBCLAREA ;CLEAR SIMULATED DISK 

. WORD 15k FROM 

“WORD 15K 4776 : TO 

:WORD 177400 :DATA 

JSR ee @sCLAREA ;CLEAR READ INTO BUFFER 

. WORD : FROM 

"WORD REINTO+776 : 

"WORD O !DATA 

;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 

MOV aFMT22, JeCYL s CYLINDER O 16 BITS PER WORD FORMAT 
CLRB asSECOTR+I > TRACK O 

MOVB rs SSECOTR ;SECTOR 1 

CLR BKEY 3K Vis 

CLR ak y ik 

MOV #10. , S#DAWORD WORDS 

CLR aax THis Is OAT READ COMMAND 

JSR RS, aBCRC :GO TO CALCULATE CRC 

WCRC 


MOV QBREADAT, aRI : oA A INTO RHC 

MOV 8-10. , IRAWC : A Boome 

MOV SRE INTO, IRHBA ; ai Ss 19F READ BUFFER 

nove (ge) ; 5 E rests OR 1 

MOV #0,1(SP) ; AN BYTE 

(SP)+, MRHDST ; OR IK Pros 

MOV leet 
TION | TRHIBIT BECAUSE 
+ baw HERE 

CLR ORHCA 

BIS sB8T , RHCS2 saath"? SS INHIBIT 

SSR Pes geCOMHD ae 


SRE TARE I EW AT SABES 
ee oa + gee INTO Ap ee D " HHanceb 


3: ROM” URS SHOU 0 BENIN ED ns Ex EcreD DATA AND CHECKED 


a 0, JeCLAREA 


* tala 


‘noe © BUFFER 


‘ATA 


SEG 0128 


fenton | RPO4’S’6 DSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 08:S4 PAGE 127 


JGB.P11 O8-NOV-77 08:30 172 BUS ADDRESS INHIBIT SEG 0129 
4980 
4981 :#EXPECTED DATA IS 177400 IN FIRST LOCATION ONLY 
4 032252 012737 177400 002110 hov #177400, J8WRFROM ;EXPECTED DATA 
1984 ;#NOW READ DATA BUFFER IS CHECKED 
4986 260 0127 110 MOV ;GOOD DATA 
4987 ee4 01870) poste Mov ane rOsRI : TA. AD 
4 Bis39s eetteyt 047620 1S: MOV * @SERWORD PORN RROR WORD NO 
4390 032302 oeede! CHP t 0)4+'(R1)+ Hes GOOD WITH READ BUFFER 
BFE FED oye Be aur hele 
3a) HRSHIC Peau? BUDESS BL aSPULERABRE™ BRORBmo wg 
4 65102 BNE qethr TF F ate so8 sees Bo Ro T READ HEBER 
499 i RROR 4 
4998 0004 BR 4g i BRANCH TO ONBVOID PRINT NTING NEXT ERROR 
4939 S ; NO 1 
Baap Ho NOS 11 HAVE NOT BEEN 
5002 BNO BUFFER SHOULD BE 
5003 ee fro HER THAN ZERO 
5004 WRONG R OF HAVE 
500s RE HE DISK NOW 
5006 + BONTAINS 1 eyoo ALL 256 
5007 :WORDS BUT ONLY 10 WORDS 
5008 :SHOULD BE READ IN 

(RO)+, (R1)+ ; -(RO) -(R1) FOR ERROR 
635336 oe 146574 MOV aSWR, ~(SP) 5 OO TCH ene FING 
032344 042716 177177 BIC #177177, (SP) > KEEP Y SWITCH 7 AND 8 
032350 0227 000200 CMP #SWO7, (SP) + :I1S 7_SET AND 8 RESET 
032356 2s: SEC Re : COUNT 
032360 601345 BNE 1§ :BRANCH IF NOT COMPLETE 


OOOOOOODOOOO 
TU o + bo ee 
OWOYVWH8MN £wtye-oO 


CZRJGBO,RPOY’S”“6 DSKL Rois MACY11 SOL jONG) O08-NOV-77 a N10 126 


CZRIGB.P11 08-NOV-77 08:30 é BUS ADDRESS BIT SEG 0130 
5038 032364 012706 001000 MOV aSTACK, SP ;RESET STACK 
10 037 042532 ISR RO QSCLAREA CLEAR SIMULATED DISK 
Bssute pesuis WORD BIek ove seam 
5027 0324 P3Sh0 “WORD eats :DATA 


5028 
5030 ; "THESE ARE TO SETUP FOR DISKLESS USE ONLY 
012737 919009 047500 MOV genres aecyL ;CYLINDER 0, 16 BITS PER WORD FORMAT 
105037 03 CLRB SECOTR+ 1 : TRACK O 
737 1 047502 MOVB 4 #SECOTR :SECTOR 1 
CLR ae ak vi :KEY 3 
37 7506 CLR BKEY iK Yeso 
0 730 990001 047560 MOV #1. , a#DAWORD ;NO. WORDS 
? 7510 CLR gax THIS igh "Reap COMMAND 
B37 044022 JSR S, a@CRC © CALCULATE CRC 
75 CYL 
051400 WCRC 


;*THESE ARE REGULAR SETUPS 


Osi oge0ee nov SaABADAT m1 «FREAD OATA INTO RHCSI=76 





1 177777 147120 MOV a-1. 
B15777 HOR BY Elsa len | LTARFTRS eiBRccs oF ncao ourren 
11 14 Bid 8A16!AI?7,aR1 31S 
il MOVE #1,-(SP) ?IN-L E GET CTOR 1 
ii 7 000001 * 1(5P) ; GET K of ih PER BYTE 
126 1474 MOV )+, JRHDS : K/S Cc IN 
032542 012777 147100 MOV eemTesi ect ORHOF bee olf RiRMTBIT _BECAUSE 
cc SN $ Toh ite 
932550 905077 47076 CLR JRHCA ; Yor 
5B6 772 9 10 147042 BIS saearecs = ; Et afd strat 
B05S O 3250 peas? é B45 348 SSR Se :READ DATA 
2pe2 
2063 032604 011137 001126 1S: MOV @R1, a8SBDDAT ;TEST DATA 
5065 10 2737 145670 901126 CMP #SC! TRE!DVA!ALGIAL7!RDY! SSBDDAT ;COMPARE RHCS1 
soee GRRIe BRIG er ASRDY TP: 388° 
506 0167 44270 001124 MOV wSC3 TRE! OVA! RDY! 8 T :GOOD DATA 
19 7 2264 MOV Rl, as R ; RHES I 
20 3 i 1 ERROR 1° § EXISTANT 


_ 


; Ss 
; Y DID NOT SE 

; QUIRED BITS 

2s: MOV AUNT ,i T NUMBER 

HIRE sa NEM BAI AND IR 


2b MOV SRe ,34580 TEST D 
24 001126 CMP oaeGDDAT BBO nes MPORE” RHCS2 


SSS 

Zone 
Fy 
bee 

S888 - 
z= 


eG 

ow 
iO 
iW 
o 
ray 
ee 
-_ 

NT 
Ww 
N 


CZRIGBO,RPON/S-& DSKLS CTRLAI 
&sR 30 


3GB.P 


5077 
$078 
$079 
$080 


0. 
pase 

B35e%0 

032672 


032710 
032716 
032724 


032726 


-NOV- 
biGa37 042264 
104001 


017737 146736 
022737 160000 


012737 150000 
013737 O016 
104001 


MACY11 ss oe 


001126 
001126 


001124 
042264 


3$: 


4$: 


Bll 


O8-NOV-77 | S4 PAGE le 
RHCSe - BIT # 11 - NEM 


3$ 

Re, a#REGADOR 
1 iR 
JRHBA , a#SBODAT 

. 60000, aeSBD0AT 


160000, 3¥$GODAT!G 
WRHBA, OHREGADR ; iR 


3 

REF TER AD 

F ING RISTANT MEMORY 

i SPP om ERROR HOULD SET NEM 
» oe RHBA 
F GOOD 


an | gh ADDRESS RHBA 
NON EXISTANT MEMORY ERROR 
RUBE DOES NOT HAVE 160002 


SEG S121 
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C2RIGB.Pi1 o8- -NOV-77 08:30 173 RHCS2 - BIT # il - NEM SEG 0132 
S097 
5098 
5039 s SOATA TABLE atten wf 
TIP dbe@ OF PPORELEP'GAETE,O 2 4, sop 
:#16 WORDS OF FLOAT EROS (EG. 177776; 177775) 
032730 012706 001000 MOV eSTACK, SP ;RESET STACK 
032742 004737 O42614 JSR PC, asCLOISK :INIT AND SET UP GENERAL REGISTERS 
;*SET UP “REINTO” FOR WHAT IS TO BE READ 
03274%6 012700 000001 MOV #1,RO0 GETTING READY TO FLOAT 1 
0327Se 012701 003154 MOV #REINTO,R1 :STAR TING, SS WHERE 1 GOES 
032798 10021 1$: MOV RO, (R14 :MOVE FLOAT ar 1 
1 ROL R ;GET 1 yOne I nbé EFT 
Ba BS 403305 77776 Boy i 7777 ABy 5 POOR 
835585 RiSSR? Ad5278 MOV BRE IABS Tie. #2>, ie eer AR fotbetet GINERE 177776 GOES 
032774 010021 2s: MOV RO VE IN_FLOA 
1 SEC iser¢ 
1 ROL - T O ONE BIT LEFT 
033002 103774 BCS 2s :BRANCH IF 16 NOT DONE 
033004 004037 042532 JSR RO G4CLAREA ;FILL REST OF BUFFER WITH 1 
mie Sees eee finesse? ia 
933014 1 WORD tTTH DATA 


;*#SET UP SIMULATED DISK WITH WHAT IS TO BE READ 


Mraruriuuuuuuauurauuauntaatatininiiaatatatiaia nitty 
We ODODE O DORR POR SDS IONS OM OO NOU EU ODD IRAE OES 


033016 0127 o00ci MOV a 1 
2 15701 naeyt MOV #15 R1 ae ntING RES HERE € 1 GOES 
033028 9100 1 3S: nOV R1)+ : MOVE Pass 
§33030 TBSa9e Bcc ol Ger, OMe 1 16 wk DONE 
o3 pte 700 ae ace ey ao iskee cle. #2>, RL sGEr nATT 6 ADD £o6 HAERE 177776 GOES 
+ 
61 1 4S: MOV RO cK ASve QATING 6 ‘ 
: ROL R BIT LEFT 
Baade2 | foaPe4 Bess get oon PET BF DONE 
033054 004037 042532 JSR RO, J#CLAREA ;FILL REST OF BUFFER WITH O 
033060 OS1Sié . WORD 1Sk+<3e. .#2> >FROM 
Bases 414 * WO TO 
33064 0 WOR :WITH DATA 
;#CHANGE FIFTH WORD TO O ON DISK 
033 037 051426 CLR sDISK+10 ;CLEAR FIFTH WORD ON DISK 
02307 iste o02006 CLR gap tek et 'CLEAR ERROR FL AG 
03307— 004727 043652 ISR PC, J#WRCHDA WRITE CHECK DAT 
‘CYLINDER O, ORACK 1, SECTOR 1 


C2RI 
CeRJ 


UU UU UT UT UU UU Ut 


MH ODOVTU LOW ODO ION LO OBIT LU OOD ION EW ODDIE ee 


NUTRI OUT UTC UT UT UU UT UT 


Atiatht 


0, RPO4-S-“6 DSKLS CTRLR1 
O8-NOV-77 08:30 


Pil 


atatat att tat tf 
WWWWWWWLUIW 
hb be pe pe 
ER EMowey 


033164 


033172 
033174 


033176 
033200 


033206 
033210 


033212 
033214 


033222 
033224 


C33226 


fear 


104017 


005737 
001414 


022737 


001402 
104017 


000421 
022737 


00141 
10401 


000413 
022737 


001402 
104017 


000405 
022737 


00140} 
104017 


005937 


002049 


177750 


003174 


177745 


003166 


ocecdt 


MACY1L1 


001712 


001706 


001710 


001706 


001710 


30(1046) O8-NOV-77 08:54 PAGE 131 
174 WRITE CHECK ERROR 


;KEYS 0, 32 WORDS. 
; #IF THE N WR HECK 
: #HAS bE EN” OSRPLE ™ _—— F cHeck ERROR Si ec TES STE ED 
:#ALONG WITH RHWC ‘ OPER WORD HE SUN AND Riea! Por ADDRESS 
MOV ateiontag Ger vu 


(geo )+ ate Cone oe RS 
Bie — Ho TE ERROR N Sue To “WCE” 
ERROR 17 aan NG WORD 
BR 6$ ; BINS AD sste 
3 OF MORY FROM . 


Lo BE SET 


pre so ee COMPARE 
S$ ERROR 17 ES Fintett oom 
: Pero 
RE SE 
: TST #RH70 ; TEST FOR RH70_ CONTROLLER 
” Beo ies :SKIP RH70 C AND DO RH11 IF NOT 
CMP 8-24. , JeWC COMPARE RHWC BFTER A FORCED 
{WRITE CHECK ERROR 
BEQ 178 3C G00 S 
ERROR 17 pay aT GIST R IN AOR “GR FF TH WORD 
BR 1Ss CaNFINUE FEST TES 
7$: CMP #REINTO+<8.#2>, one RHBA AFTER A FORCED 
as me . : erlaee CHE CK ERROR IN FIFTH WORD 
FRRoR 13 Pacer Real TER IN ERROR AFTER 
RROR ON FIFTH WORD 
BR 1S$ 3 FORE SOE AND SANT INGE WITH TEST 
16$: CMP 8-27. , aaWC oar pF TER A FORCED 
BEG 14S Hoe es 
ERROR 17 iSTER IN ERROR AFTER A 
Fore 5 OUR Be g RROR ON FIFTH WORD 
BR 1S$ H TOC $thue 
4S: MP #REINTO+<5.#2>, eae AFTER FORCED 
~ ae aur es CHEEK ERROR IN FIFTH WORD 
ERROR 17 tele & sR COSTER IN ERROR AFTER 
i PORCED ITE CHECK ERROR ON FIFTH WORD 


;*#NOW CHECK MEMORY TO SEE IF ANYTHING GOT DESTROYED 
:#FILL “WRFROM” WITH WHAT SHOULD BE IN REINTO THEN CHECK 


15$: CLR DeERFLGS ;CLEAR ERROR FLAG 


SEG 0133 


on0 


HU 


SELL 
NWF O 


QRREORY SSO VEN Low Sow Vou WMO = 


Dw 


Pil 


RPO4/’S’6 DSKL 


033330 
033332 


O08-NOV- 


104004 
000207 
104005 


000207 
o0ce40 


hae 


000001 
062110 


177776 


002150 


042532 


043510 


MACY11 SYS L0%) uf 


7$: 


10$: 


11S: 
12s: 


138: 


Ell 


cay ee 08:54 PAGE 132 


RITE CHECK ERROR 
MOV #1,R sGETTING READY TO FLOAT 1 
MOV #WRFROM, RL : START ADDRESS WHERE 1 GOES 
MOV RO, (R1)4 :MOVE FLOATING 1 
ROL RO ‘GET 1 ONE BIT LEFT 
Bcc 7§ ‘BRANCH IF 16 NOT DONE 
MOV #177776,RO TIING READY TO FLOAT O 
MOV BURF ROMS < 16. *2>, ase TING ADDRESS WHERE 177776 GOES 
MOV RO, (R1)+ 7M hobe IN FLOATING 0 
SEC ;SET CARRY 
ROL RO :GET O ONE BIT LEFT 
Bcs 10% :BRANCH IF BARRY SET 
ISR RO, J#CLAREA ;FILL REST OF BUFFER WITH 1 
“WORD WREROM+<3e.%2> FROM 
“WORD WRFROM+776 : 
"WORD 1 4 :WITH DATA 
;*#NOW THE READ BUFFER WILL BE CHECKED 
ISR RO, J8COMPAR- ; CHECK 
WRF ROM + GOOD FER 
REINTO : TEST 
d ;NUMBER OF WORDS CHECKED 
11$ ik TURN POINT FOR ERROR HEADER 
125 RETURN POINT FOR ERROR DATA 
ERROR ;READ NEXT E 
PC :RETURN TO C ISON SUBROUTINE 
ERROR ;DATA IN REINTO BUFFER 
: CHANGED AFTER ITE 
‘CHECK DATA COMMAND 
: WORD NO CONTRINS THE WORD 
‘NUMBER THAT GOT 
RTS PC :RETURN TO COMPARISON SUBROUTINE 
NOP :ONLY A BRANCH POINT 


CZRIGBO,RPOYS-& DSKLS_CTRLR1 MACY11 30(1046) O8-NOV-77 08:54 PAGE 133 
SSRI G8. 08-Nov-37 OB: 30 TM Rf PR . 


Pr V-?? 08:30 WRITE CHECK ERROR 
5250 
5251 
5252 
3¢e3 033336 012706 001000 MOV aSTACK, SP ;RESET STACK 
525s 
Beeb ;®#NOW SEE THAT FORMAT ERROR BIT GOT SET 
3¢38 033720 004737 oO42220 &$: JSR PC, J#PUTREG ;SAVE REGISTERS 
2Sea 033724 022737 100020 o01716 CMP BFER!DCK,@SER1 =; FORMAT ERROR SHOULD BE SET 
2 oi 033734 104020 ERROR 20 ies BIT P R WORD READ WAS ATTEMPTED 
5263 He FORAY B1T=0= 18 BITS PER 
feed WORD THE "guy ER 
E265 imo LETED BU ERROR REG 
5266 :WAS NOT RIGHT 
S267 ‘NOTE DCK WILL BE SET BECAUSE 
Bete !ECC HAS NOT BEEN GENERATED 


CZ2RIGBO,RPO4’S’“6 DSK Ls, CTRLR1 MACYL1 30(10%6) O8-NOV-77 08:54 PAGE 134 
C2PRIGB. Pi) 08-Nov-37 98:30 T75 ERROR REGISTER #1-BIT 4 -FORMAT ERROR SEG D136 
S271 
Sa72 ;#NOW A WRITE DATA WILL BE ATTEMPTED WITH 
B23 : WRONG FORMAT BIT 
Bers 033740 012706 001000 MOV #STACK, SP ;RESET STACK 
5277 
5278 033752 012737 177777 O47614 MOV #-1, JBNOSYNC ;SET FLAG SO THAT DATA SYNC 
5279 :AND DATA IS NOT READ 
5280 033760 004037 042532 FRMATL: JSR RO, J¥CLAREA !CLEAR SIMULATED DISK 
5281 033764 OS1416 .WORD ODI : FROM 
033766 O5244e - HORD TOLGAP+16 iO 
5283 033770 OO00000 0 TA 
; THESE ane Ree TuP FOR DISKLESS uae” ONL 
S285 033772 005037 7500 aacyL ;CYL CINDER 0, FORMAT 18 BIT WORDS 
5286 033776 105037 7503 €LRB SUSECOTR+L K O 
5287 034002 105037 o47502 cLRB Sncev) : SECTOR ts) 
2586 BS4Bt8 peep a> 7506 CLR 8K K Ye 0 
5290 034016 012737 OO0004 047546 MOV #4 SBNOWORD :NO OF DATA WORDS 
5291 O34024 012737 000001 047510 MOV #1; dex :WRITE DAT 
S292 034032 004537 044022 JSR RS) aBCRC :GO TO CALCULATE CRC 
52393 034036 052636 WOYL 
peas 034040 052646 GCRC 
5e96 ;#THESE AER REGULAR SETUPS 
5298 O34042 004037 042532 JSR RO, J#CLAREA ;FILL WRITE FROM BUFFER WITH 125252 
5299 034046 602110 FRO : FROM 
5300 002116 WRFROM+6 : 
5301 O52 125252 25 ;DATA 
5302 034054 004737 2614 JSR PC, J8CLDISK : SETUP GENERAL REGISTERS 
5303 034060 Oi 2739 177774 145544 MOV 8- ; 286 ATA WO: 
O34066 012777 O02110 145540 MOV SURE ROM, JRHBA i$ ART ING AOORES SS OF WRITE BUFFER 
OS 034074 005077 1455¢4 CLR aR RACK=0 SECTO 
c 034100 012777 010000 14sSS4e MOV SF MT22, JRHOF '16 BITS PER WORD FORMAT 
5307 O34106 005077 1as543 CLR cA CYL R 
5308 034124 013711 MOV D8WRIDAT, IRL :WRITE DATA=60 
£309 034130 905037 03006 CLR QHEREL GS” CL RROR FLAG 
E310 034134 004737 04734 ISR C, J8COMHOD :WRITE DATA 
£311 ;#IF THE PROGRAM COMES BACK HERE’ WI HOUT ERROR PRINTOUTS 
53i2 :#FROM THE “COMHD” ROUTI IT ANS SECTOR GAP, SYNC BYTE 
E313 ; #HEADER HEADER CRC E AND SYNC BYTE HAVE GONE BY 
5314 :#AND SYNCS WERE CORRECTLY DETECTED 
ExiS :#DATA IS TO BE CHECKED 
E316 034140 004737 o42220 JSR PC, JSPUTREG ; SAVE akEs STERS 
£317 034144 005737 Oo02006 TST astRFLGS HAS ANY ERRORS OCCURED? 
2318 G34180 001041 BNE 4 BRANCH YES 
531 1 012700 oo0coo MOV #0, RO :GOOD DATA 
E320 034156 012701 OSi4ie MOV sOtSk,R1 ;OATA WRITTEN INTO “DISK™ 
£321 O34lbe b1270e 000004 MOY 84, NTER 
E322 (034166 0127 O0000S O47620 15: MOY 85; SHERUORD ‘FOR ERROR WORD 
E323 034174 O20021 CMP RO; (R1)+ ;COMPARE GOOD DATA WITH DATA ON DISK 
£324 034176 001424 BEG 3$' ‘BRANCH IF GOOD 
6325 034200 010037 oo1124 MOV RO, J8$GDDAT :GOOD DATA 
E326 O34204 014137 OOllce MOY -(R1),a8$B0DAT ;:BAD DATA 


CZRIGBO,RPO4’S-6 DSKLS CTRLRI 
CZRIGB.P11 O8-NOV-77 08:30 


paisic 047620 


2e0837 
a 14 002006 


aptoge ba] 


00 
$721 
i774e 1ay7oe 


000200 


034254 O22 
104 


7 900520 
034264 is) 


CUTOUT 
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Aw 


3$: 


001716 4§: 


O8-NOV-77 08:54 PAGE 
ERROR REGISTER #1-BIT 4 


SUB R2, J8ERWORD 
TST guERF RFLGS 

PRR 

RROR °° 

5 

ERROR § 

TS (R1)+ 

MOV aSWR 

BIC #177177, (SP) 
CMP eet 
BEQ 
DEC 

BNE °§ 

:®NOW CHECK TO SEE THAT 
CMP aFER, d8ER1 
ERROR 20 


13S 
FORMAT ERROR 


;ERROR WORD NO 
: ANY neh lou, THERE” 


Tau ait ® COMMAND 
WRONG F ror 

; SHO P, at RITE 
;WOR Oo! 
{BRANCH T iY ID PRINTING NEXT ERROR 
ice -(R1) FOR BAD DATA 

; suiTCn S' REN g 

3K Y SWITCH 7 AND 8 

; 57 SFT 8 RESET. 

i ANCH IF YES 


;I1F NOT COUNT 256 WORDS 
;BRANCH IF 2S6 NOT DONE 


FORMAT ERROR BIT GOT SET 
forma RR ht sae 
eo ar TenPre ORneT'D MEN 1 


HA ea ie Ti HET Te 
ERROR REG. 1 WAS WRONG 


Til 


RPO4’S-& OSKLS CTRLR1 MACYI1 30(1046) O8-NOV-77 08:54 PAGE 136 
avi O8-NOV-77 08:30 T76 ERROR REGISTER #1-BIT 4 -FORMAT ERROR 
O34e70 Ole7 001000 MOV aSTACK, SP ;RESET STACK 
0343 00473 Baiees JSR a CA aachOIsk ;CLEAR DISK 
034320 012700 16Se MOV 
O0343e4 012005 1$: MOV tRO)+ RS ;RS HAS ADDRESS OF REG. UNDER TEST 
034326 000040 Pg es: BIS #CLR, @RHCS2 


MOV QSUNIT,aRHCS2 ;REINSTATE UNIT NO. 
;#SET UP FOR AN OPERATION (WRITE HEADER AND DATA) 


Bos555 
034334 013777 001774 


034342 013777 oO02064 145270 MOV QeWRIFOR, JRHCS1 nace Or" AND DATA=62 
034350 012777 1777 145254 MOV #10 @RHWC i404 
034356 012777 002110 145250 MOV ROM, JRHBA fs"A ss = 
034364 012777 OO00010 145252 MOV #10 @RHOST Bee TRED SPR cKeon CTOR=10 
034372 052777 OO0010 145236 BIS sBaAt. aRHCSe :BUS ADDRESS talacse INHIBIT 
400 012777 010000 145242 MOV aFMTee, JRHOF ‘FORMAT 16 BIT 
O3440& 005077 145240 CLR JRHCA ?CYL TINDER’ = 
;#SAVE REGISTERS 
034412 004037 043306 JSR RO, a#SAVER ; SAVE 
O34416 001640 RHCS1 : FROM 
034420 003154 RE INTO TO 
034422 O000i6 14 :NUMBER OF REGISTERS SAVED 
;#NOW THE COMMAND IS GIVES TO 
S*#WRITE HEADER AND DATA FOR CYL=0, SECTOR=10 
; #TRACK=0 IT COMES BACK AFTER ONE SECTOR 
!#HAS PASSED 
034424 012777 000001 14S226 MoV #OMD , JRHMR ;SET DIAGNOSTIC MODE 
034432 005277 145202 INC aRHCSL :G0 TO RHCS1 WITH Ge 
4 012715 177672 MOV #177672, aRS sgRY WRITING ALL BITS EXCEPT 
O34442 052737 000001 003174 BIS #OMO, a8R INTO+20 ret rom tf SAVED REGISTER RHMR 
siaree aoa) Gesise BIE Soev Sure Nrovsa for’, ENCRI SR, mec 
te . 
034464 052737 haat Boat oe BIS sean 38 REINTO+e2 icee ERR IN RHOS1 
034472 052737 000001 003154 BIS SORE NTO ;SET GO tN SAVED REG. RHCS1 
034500 042737 000200 003154 BIC oRoY JBREINTO CLEAR RDY BIT 
#A ETER AN ATTEMPT TO WRITE INTO A REGI ISTER 
:#SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
934506 043306 JSR RO, J8SAVER ; SAVE 
34Sie gtees RHCS1 : FROM 
34514 506119 WRF ROM :T 
34516 14. : NUMBER 


UPPER BYT UPPER By ie a CHANGING IN A DUAL PORT 
:SOPERAT On T Eup One Y #4 o~ B, GALL Be 8 SAVED AS IS 


Tao T LOWER BYTE 
C24S20 113737 003172 O0z127 hose MM aRE INYO 1? DBMREROMSI?; SAVE UPPER  RHAS 


DD 


SLEELLEELLELEE bats 
SO ee ee ee oe oe 


OO 
Nite 
& 


UIUTUTIUTUTUTUT UU 
OWONTWU LW 


Ott 


RPO4Y/S “6 


034564 


O34566 


& DSKLS 


CTRLR1 
30 


OS-NOV-77 O8: 


004037 
003154 


004737 


043510 


047620 
001636 


042614 


Jil 


MACY11 S9L,ONG) eae <4 08:S4 PAGE 
17 RHER 


042264 


4$: 


S$: 


7 
1 - BIT #e - REG. RODTFICATION REFUSED 


;*COMPARE REGISTERS BEFORE ATTEMPTED WRITE WITH AFTER 


ISR RO, J#COMPAR ; COMPA 
REINTO :GO BUFF 
WRFROM ; TEST BUFFER 
14.  NUMB' 
4g :RETURN FOR ERROR 
4g :SAM 
S$ :RETURN FOR GOOD COMPARISON 
MOV JSERWORD, RS i GET ING READY TO INDEX 
ADD RS OUBL ROR WORD 
MOV RHCS1-2(RS), aunebROR ILING REG. ADDRESS 
ERROR 1 ONTENTS. OF REGISTER 
RTS Pc SHRED W ran 
aN A ENF TO WRITE 
URING AN OPERATION 
; ATHE FOLLOWING CLEAR nade Set THE ATA BIT BECAUSE GO IS HIGH 
ip PC, aaCLDISK ;CLEAR DISK 


eRyae 


O,RPO4-S-& OSKLS CTRLRI 


P11 O8-NOV-77 08:30 


MACY11 30( 1046) 
T77? 


Kil 


O8-NOV-77_ 08:S4 PAGE 138 
RHER1 - BIT #2 - REG. MODIFICATION REFUSED 


a 
y 
2 && 


GBO, RPOW/S “6 
Pik 


& DSKLS 
os- -NOV =e 4 


CTRLR1 


08:30 


MACY11 3OC ONG) 0 
101 ERROR REGI - Bit 


-NOV-77 O08: 


bt 
ro 


1 
HEA 


13 
AD 


3 
E 


R COMPARE ERROR 


SES Ci41 


M11 


C2RIGBO, RPO4’S 6 DSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 O8:S4 PAGE 140 

CZRIGB.P11 O8-NOV-77 08:30 T103 ERROR REG! - BIT #7 - HEADER COMPARE ERROR SEG Cli4e 
S444 
44S 
446 


Sb RPOY’S’6 DSKLS CTRLR1 MACYI1 30(1046) O8-NOV-77 08:54 pre 
CZRIGB.P11 -NOV-77 08:30 Tl ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR SEG 0143 


Ble 


czRIGBC RPOH - ta DSKLS CTRLRI MACYIi 30(1046) 08- -NOV-77 08: s4 B gn 142 

CFRIGB.Fi1 8 Rove -77 08:30 TiO? ERROR REG.1 - BIT #7 - HEADER COMPARE ERROR SEG 0144 
54s4 
s4ss 


Cle 


CZRIGBO,RPOY’S’S OSKLS CTRLRI MACY11 30(1046) O8-NOV-77_ 08:S4 ei 143 
CZRIGB.P21 O8-NOV-77 08:30 T110 RHER1 - BIT #6 - CRC ERROR (READING) 


ZRIGBO,RPOY’S-6& DSKL 


CERIGB 


aB-P21 


035650 
035654 


035656 
03S660 
035664 


036314 
036322 
036324 
036326 
036330 


O8-NOV-7 


000137 


$_CTRLR 


062036 


036334 


001640 


037000 


MACY11 UM) 0 
lll RHER1 - BIT 


042264 
O00ile4 
001126 


036324 


-NOV-77 ¢ :S4 PAGE 1 
- CRC ERROR” (WRITING) 


;*SET UP FOR THE TWO LAST SECTOR TRANSFERRED TESTS FOLLOWING 
- tatenat ; MOVE RPO® rs t TO ITSELF TO rest 


4$; 


Ss: 
6$: 


TST 
BEG 
BR 

JMP 


3$ 
@as00G 


a ) 
OP 

ss 

asRHDOS 


1,a 
aLST!DPR!DRY! VV 
9eDsi, ORSBDDAT 


(S 
SP 
R! 


@#RHCS1 , debs 


aecarT 


RE GAOR 


TREAT DRIVE AS RPOY 
; TREAT AS RPO6 - DO NEXT “MAKECL” & TEST 
:00 SECOND FOLLOWING “MAKECL” AND TEST 


a 


Pp 
) CLEAR PROG 

DRY! Vv, isp e, is iF Stoo tH ? 
Py yt tne REG. ADORESS 
igath 


1. ;GO0D DATA 
ik gt DID NOT SET AFTER 
T SECTOR ON LAST TRACK 
‘ON at CYLINDER WAS 


FWY BIT #6 MAY _OR MAY NOT BE HIGH 
:SET UP “WAT” SUBROUTINE 


‘fiat + FOR READY 


00n" T DO THE RPOY *LST’ TEST FOLLOWING 


SEG S14é 


CZRIGBO,RPO4’S-6 DSKLS_CTRLR1 MACY11 30(1046) athe 08:54 PAGE 
T113 RHDS1 (BI 


14S 
T #10) - LAST SECT 


C2RIGB.P11 O8-NOV-77 08:30 1 OR TRANSFERRED, ‘LST’ SEQ 0147 
5499 
5s00 
5501 
pe0e 036334 DOG: 
550 
5504 
5505 
5508 036722 013746 001736 4$: MOV a80S1,-(SP) ;GET RHDS1 
$509 036726 O%e716 001000 BIC #PROG' (SP) ‘CLEAR PROG BIT 
5510 03673e Oe22e726 002700 CMP eLST!OPR!ORY! vv, (SP)+ -IS 'LST’ HIGH ” 
5511 036736 OO141le BEQ S sWAIT FOR ’ROY’ IF GOOD 
5512 036740 013737 O01662e O42264 MOV JBRHDS1, IWREGADR’ ;FAILING REG. ADDRESS 
5513 O36746 012737 002700 OO11e4 MOV #LST!DPRIDRY! VV, aRSGDDAT ;GOOD DATA 
5514 036754 013737 001736 OO01l26 MOV a80Si,a#SBDDAT ';BAD DATA 
5515 036762 104001 ERROR 1 **LST’ DID NOT SET AFTER 
5516 tLAST SECTOR ON LAST TRACK ON LAST 
5517 :CYLINDER WAS WRITTEN - ‘VV’ BIT #6 
3e18 :MAY OR MAY NOT BE HIGH 
5520 036764 013737 O01640 036774 SS: MOV DeRHCS1, J86S ;SET UP “WAT” SUBROUTINE 
5521 036772 104415 WAT 
S22 036774 oo0000 6$: 0 :RHCS1 ADDRESS 
523 036776 00200 RDY :WAIT FOR 'ROY’ BIT 


cghy Geo RPOY’S“6 OSKLS crm MACYL1 30(1046) O8-NOV-77 08:S4 PAGE 146 


2RIGB.P11 O8-NOV-77 08:3 T115 RHDS1 (BIT #10) - LAST SECTOR TRANSFERRED, ‘LST’ SEG C14e 
S24 

5525 

5526 037000 CAT: 

S527 037002 012706 001000 MOV aSTACK, SP Rees TACK 

S28 037 904737 O42614 ISR PC, aaCLOISK NIT AND SET UP GENERAL REG. CORRES. 
529 33030 904037 O42532 JSR RO: SaCLARER NEAR SIMULATED DISK 

5530 037024 051416 WORD DISK ikon 

5531 037026 OSe%4e "WORD TOLGAP+16 

Bese 037030 oo00000 ‘WORD 0 ‘DATA 

5534 ;#THESE ARE TO SETUP FOR DISKLESS USE ONLY 

35 :#AND WILL HANDLE RPOY OR RPOG DRIVES 

5537 037032 005737 002036 TST DeRPOG ;MOVE RPOR FLAG TO ITSELF 10 TEST 

po38 037036 001404 BEQ 10$ TREAT DRIVE AS RPOY IF = 0 

5540 037040 012737 011456 047500 MOV #614. 'FMT2e2, eg CYLINDER 814., 16 BITS PER WORD 

eeu! 037046 000403 BR 1$ ; TREAT DRIVE AS’ RPO 

5543 0370S0 012737 010632 047500 10S: MOV W410. !FMT22, DACYL CYLINDER 410., 16 BITS PER WORD 

pews ; TREAT DRIVE AS’ RPOY 

SS46 037 112737 22 o47503 11S: MOV #18. ,a8SECOTR+1 ; TRACK 18. 

5547 037064 112737 00eS 047502 MOV $21: asSECOTR ; SECTOR ei. 

5548 037072 0050 047504 CLR aekeY1 iKEY1 O 

5549 037076 open 39 047506 CLR aekEYe :KEYe O 

6550 037102 012737 OO0400 o47S46 MOV #256. , J#NOWORD NO OF pata WORDS 

555i 037110 012737 O00001 047510 MOV #1,a%x WRITE DAT 

5552 037116 O04S37 O44022 JSR RS’ aBCRC GO 6 BAL CULATE CRC 

5553 037122 047500 CYL 

peed 037124 051400 : WCRC 

BOSE ;#THESE ARE REGULAR SETUPS 

5558 037126 004037 o42532 JSR RO, 28CLAREA sEILL WRITE BUFFER WITH 377 

559 037132 002110 WRF ROM 4. OM 

5560 037134 903110 URFROM+< 256. *2> 

5561 037136 9003 377 : ATA 

Ste 0371 4737 O04 JSR PC, a8CLDISK ETUP GENERAL REGISTERS 

5563 037144 012777 177272 142460 MOV 4 328. @RHWC DATA WORDS 

5564 0371S2 012777 142454 MOV aWRFROM SRHEA fearing ADDRESS OF WRITE BUFFER 

S565 037160 012746 MOV #21.,-(5P) ; SEC TOR 21. 

So66 037164 11027 000022 o000c1 MOVB #18. '3°¢5P3 RICK 18. 

5567 037172 O1e677 1424465 MOV (spis oRHOsT gee OR 2i. TRACK 18. 

pee 037176 O1e777 O10000 142444 MOV MT22, aRH 16 BITS PER WORD FORMAT 

5570 ;#CHECK TO SEE WHAT vere OF DRIVE IS BEING TESTED 

287 :#AND LOAD CYLINDER ADDRESS REGISTER WITH THE PROPER NUMBER 

£573 037204 005737 002036 TST asRPOG ; MOVE FLAG TO ITSELF TO TEST 

E574 037210 001404 BEO 1 AT AS RPOY IF = 

cc7s o37ele 012777 O014S& 142432 MOV #814. , IRHCA Oue INDER 814. 

c57— 027 00 403 BR l : TREAT AS RPOG 

EE77 O37222 312777 oO00622 142422 125: MOV #410. ,39RHCA ‘CYLINDER 410. 

€£7e8 037e30 138: 
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CZRIGB. 


5609 


él 


RPO4’S/6 tet Mohs | 


037242 
037246 


037262 


037264 


037270 
037274 


037276 
037304 


037312 


037314 
037322 


037412 
037420 
037426 


O8-NOV-77 


004737 


005737 
001407 


012737 
012737 


000406 


012737 
012737 


012737 
017737 


00S737 
001404 
012737 
000403 
012737 
013737 


002062 
COe006 


043306 


047340 


002040 


177702 
003130 


177774 
003314 


00 
142260 


002036 
001457 
000633 
002016 
00000i 
142000 


043306 


MACYL1 3 


003174 
003174 
903200 


003202 
003204 


9S: 


14S: 
1SS: 


Ns paid bat oe? :S4 PAGE 
ERROR REGIST - BIT # “Roe SEG 5149 
MOV @#SWRIDAT, ARI ;WRITE DATA=60 


CLR QeERFLGS ;CLEAR ERROR FLAG 
;*THE REGISTERS WILL BE SAVED IN REINTO BUFFER 


JSR RO, J#SAVER + POR 

RHWC FROM 

REINTO 

19.  oaeen SAVED 


;#GIVE WRITE DATA COMMAND 
JSR PC, a#COMHD ;WRITE DATA COMMAND 
;*#CHANGE SAVED REGISTERS TO EXPECTED VALUES 


TST asRH70 ;CHECK FOR RH70 CONTROLLER 
BEG 8s :SKIP RH70 CODE AND DO RH11 IF NOT 
MOV #-76,d#REINTO ;SAVED RHWC SHOULD BE = 76 (OCTAL) 
MOV BWRFROM+< 24256. >4+<288.>, IBREINTO+2 

; SAVED SHOULD BE WRFROM+2S6+2 
BR 9s :SKIP NEXT RH11 CODE 
MOV 8-4, JUREINTO VED RHWC SHOULD BE = 4 


MOV SWREROM+<2%2S6. ae) JBREINTO+2 
ase? SHOULD BE WRFROM+2S6+66 


#OR, JBREINTO+4 
aR, RE NTO+4 

c! Bort oisrseeeo's nes SHOULD Have "SC’ & ‘TRE’ 
BOE 8 BEAET 0+10 RHERJ 1 SHOU ULD HA VE ROE’ 
@RHOST, SBREINTOS1B; SAVED. RHO HOST T SHOULD HA VE= 


#CHECK TO SEE WHAT Ms 3 OF ORIVE IS BEING TESTED 
t #AND SET UP CYLINDER ADDRESS ACCO BINGLY 


TST @sRPO&B ;MOVE were F\.06 ee abate & TO TEST 


BEQ 14$ AS rs) 
MOV #815. , BeREINTO+20; BEE D DESIRED CYLINDER ADDRESS 
BR 15 REAT AS RPOS 
MOV e411. | @BREINTO+20; SAVED DESIRED CYLINDER ADDRESS 
MOV QsATTENT QeREINTOSEY 5 {SAVED RHAS SHOULD HAVE APPRO. BIT 
BIS sOMO wRE NT0+26 ; SAV 
BIS SATAIERR! LST, $26; SAVED RHP ;SAVED RHDS! 
;#AFTER A WRITE DATA COMMAND WITH ‘AOE’ ERROR 
t#SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
ISR RO, deSAVER ; SAVE 
RHIC : FROM 
WRF ROM ;T0 
17. !NUMBER OF REGISTERS SAVED 
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C2RIGB.PL1 O8-NOV-77 08:30 T116 ERROR REGISTER 1 - BIT #9 AOE 
5636 *#AS UPPER BYTE OF RHAS CAN BE CHANGING IN a. DUAL efor! 
5837 ; HOPERAT ION THE UPPER 8 ye OF RHAS WILL BE SA SIs 
3638 !#S0 THAT THE COMPARES ARE ONLY VALID FOR The VED ER BYTE 
Be4O 027446 113737 003201 9002135 MOVB DBREINTO+25, DUWRFROM+25; SAVE UPPER RHAS 
5642 ; COMPARE REGISTERS BEFORE WRITE DATA COMMAND 
3643 :#WITH AFTER COMMAND 
564S 0374S4 004037 043510 JSR RO, J#COMPAR ; COMP 
5646 037460 003154 RE INTO :GOOD BUFFER 
&4? oabe 0110 WRF ROM ; TEST BUFFER 
48 7464 600021 17. OF REGISTERS 
5649 037466 037474 i$ :RETORN FOR ERROR 
5650 9 747; 37474 1$ AME 
S651 747 37514 2s ETURN FOR GOOD COMPARISON 
& 7474 ? 047620 1$: MOV HERWORD, RS TTING READY INDEX 
Beau Bsecoq Bedcne MoO OCOt«kER BILE, RROR woRo 
5655 037502 016537 001630 o42264 MOV Rr ~2(RS), 8REGAOR ; GFAILING REG. ADDRESS 
bO56 0375i0 10400! ERROR iRecieten AOE E ERROR CAUSED IMPROPER 
b658 037512 000207 RTS PC RET URN Fok FURTHER COMPARISONS 
BEBO 037514 005037 002006 2s: CLR Q*ERFLGS :CLEAR ERROR FLAG 
Se62 
Bob: ;#DATA IS TO BE CHECKED HERE 
5665 037520 004737 oO42220 ISR PC, J#PUTREG ;SAVE REGISTERS 
5666 937524 012700 000377 MOV #377,RO : TA 
5667 037530 012701 051416 MOV sarsk™ Ri :DATA WRITTEN INTO “DISK” 
Sees Os7c40 BiSe3> BpodBe ON7E20 35 NOY tose, , COR NERROR WOR 
0375 OS5021 . CMP RO, (R1)+ :C GO00 Bata WITH DATA ON DISK 

5671 0375 001424 BEG :BRANCH IF GOO 
367¢ 037552 010037 o01128 HOV RO Aa¥ScODaT | B20 Bet DAT 
2653 O35eE8 Te0s39 7620 SUB Rete at RUGRD ; WORD NO 
5675 037566 005737 Oo2006 TST ANY RRORS yBkREADY THERE? 
5676 037572 001002 N Seer : H IF YES pele SR 
Be 037574 104004 ERROR 4 ‘ERROR ON WRIT para COMMAND WITH FORCED ‘AOE 
678 76 i  } :BRANCH TO AVOID PRINTING NEXT RROR 
5679 037600 104005 4g ERROR 5 5 WORD NO. GIVES WO WORD IN ERR 
5 037602 7el cs (R1)+ ‘UNDO -(R1) F AD 

37604 reat 141330 MOV aSWR, -( SP) :GET SWITCH SETTING 
56 937610 O42716 177177 BIC #177177. (SP) ;KEEP ONLY SWITCH 7 AND 8 
£683 037614 O22726 00200 CMP #Swo?, (SP)+ [1S 7 SET AND 8 RESE 
2684 027620 O0146e BEQ 7§ :BRANCH OUT IF YES -------------------: 
ce 027622 $202 é$: DEC R ;IF NOT COUNT 256 WORDS 
ze? B35e5q BSTScE BNE 3 BRANCH IF 256. NOT DONE 
5669 O27bz6 7$: 
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i = BIT 


cSRIGB Prt O8-NOV-77 08:30 T116 ERROR REGIST #3 ACE 
5690 
sp 
5693 037664 012706 001000 MOV aSTACK, SP ;RESET STACK 
pe34 037676 004737 O42614 JSR PC, aecLDISK ‘CLEAR REGISTERS AND SET UNIT NO. 
5696 : #GIVE INDEX x PULSE 
39? 037702 012777 O00001 141750 Mov ;SET DIAGNOSTIC MODE 
5698 037710 OSe777 900004 141742 BIS nTKKe JRHMR :SET INDEX 
2699 037716 042777 900004 141734 BIC #MINX’ JRHMR :CLEAR INDEX 
5791 
5202 ;#THESE ARE REGULAR SETUPS 
S704 037724 O12777 177400 141700 MOV #-256. , IRHWC i #560 DATA WORDS 4 HEADER WORDS 
5705 037732 012700 003154 MOV #REINTO.RO STRUCTION S GETS 
5706 037736 010077 141672 MOV RO, JRHBA + OBR. OM INTO RO AND 
5707 BUS no Seei REGISTER 
2208 037742 012720 010000 MOV sFMT22, (RO)+ FORMAT = =16 BIT WORDS 
5719 037746 012720 o12000 MOV #12000, (RO)+ TRRCK=80 gecroRso KEYS=0 
5711 0377Se o0S020 CLR RO)+ Y1=0 
5712 037754 0050c0 CLR (RO) + Ye=0 
5713 037756 012705 oo0400 MOV #256. ,RS KEY ER 
5714 037762 012720 177777 1$: MOV #-1, (RO)+ :MOVE ALL ONES FOR DATA 
5715 037766 005305 DEC RS 
5716 037770 001374 BNE 1§ RANCH IF DATA NOT COMPLETE 
B2iz 037772 012777 o12000 141644 MOV +2000, aRHDST RACK=20 SECTOR=0 
5719 
5720 O40012 013711 002070 MOV QeREFOR, ORL ;GET READY FOR WRITE HEADE® ans 
5721 :DATA WITH 62 IN RHCS! 
S722 O40016 005037 o02006 CLR QsERFLGS :CLEAR ERROR FLAG 
5723 O40022 012777 O10000 141620 MOV aPNT2e, ORHOF : FORMAT BIT=1 (16 BIT WORDS) 
2764 040030 O05 141616 CLR ORHC > CYL INDE 
5? *THE REG STERS WILL BE SAVED IN REINTO BUFFER 
5727 40034 004037 043306 jcr Roo as AVER ; SAVE 
E728 o40040 001632 RHWC : FROM 
E729 O4004e 003154 RE INTO TO 
2730 040044 900023 19. :NUMBER SAVED 
2736 ;#GO TO WRITE HEADER AND DATA 
5734 04 0137 001660 MOV JeRHMR, RO sNOW RO WAS MAINTENANCE REG. ADDR. 
E735 o400Se2 o12710 000001 MOV #OMD, DRO :SET DIAGNOSTIC MODE 
£73 O400S6 9527 000001 141554 BIS #GO, MRHCS1 :GO 
£738 ; #CHANGE GISTER 0 TED VALUE 
£739 040064 052737 140000 003162 61s sf ata Sane INT ai SeVeD RCS 
£740 040072 012737 0020 3164 MOV QeRE INTO #10" Sh 
5741 p401 012737 120 1 3166 MOV 1, gael EIN ioe SAV Po "RAOST 
2545 Babies 623333 eatery SB soo gre #OMD ENT pene! 2 avéd gs “ 
E744 OwOlee 9255 7 1990000 ieee gfe tie ohe inrosce. rave ;SAVED RHDS1 


Jie 
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C2ZRIGB. P11 08-NOV-77 08:30 7120 ERROR REGISTER 1 - BIT #10 ’IAE’ 
S746 »#SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
S74? 040130 004037 6043306 SSR RO, J#SAVER ; SAVE 
5748 040134 001632 RHWC : FROM 
5749 040136 002110 WRF ROM TO 
2720 040140 900023 19. ‘NUMBER OF REGISTERS SAVED 
S7 UPPER BYTE OF RHAS CAN CHANGING IN A DUAL PORT 
5753 $30 ERATION T UPPER BYTE OF RHAS WILL BE SAVED AS IS 
5754 *#SO THAT THE COMP ARES ARE ONLY VALID FOR THE LOWER BYTE 
B755 040142 113737 003201 902135 hove DRE INTO+2S, JBWRFROM+2S; SAVE UPPER RHAS 
5757 
e> ;#COMPARE REGISTERS BEFORE READ IN PRESET COMMAND 
5759 -#WITH AFTER COMMAND 
5760 O4G150 004037 043510 jsr RO, J#COMPAR ; COMPARE 
esee ONOLee OOstiO GREROM Wear BUFEER 
2oPS 040160 000021 17. BUFR REGISTERS 
5764 O40162 040170 2s RET N FOR ERROR 
5765 O40164 040170 os : SAME 
3766 040166 040210 35 tRETURN FOR GOOD COMPARISON 
5768 O40170 013705 047620 2s: MOV Q*ERWORD, RS GETTING. READY TO INDEX 
5769 040174 O60505 ADD OUBLE E ROR WOR 
5770 O40176 016537 001630 o42264 MOV RHUIC- =2(RS), aeREGADR FENG REG. ADDRESS 
e771 040204 104001 ERROR inecraten cH CAUSED IMPROPER 
3223 o40206 900207 RTS PC RETURN FOR FURTHER COMPARISONS 
S77 ;NO. ERRORS 
E777 O40210 004737 O42614 3: ISR PC, deCLDISK ;CLEAR GO BIT 


zi 


sunganenEnE 
—OWONOW CWweHO 


Sepia 
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Pld O8-NOV-77 08:30 120 ERROR REGISTER 1 - BIT #10 ’IAE’ 
040216 012706 001000 MOV BsTAC sp ;RESET STACK 
040230 004737 O42614 JSR eect ISK ‘CLEAR REGISTERS AND SET UNIT NO. 
;#GIVE INDEX PULS 
040234 012777 O00001 141416 MOV r ;SET DIAGNOSTIC MODE 
O40e42 052777 000004 141410 Bis SMINX, JRHMR :SET INDEX 
O402S0 042777 OO00O4 141402 BIC #MINX; IRHMR :CLEAR INDEX 
;#THESE ARE REGULAR SETUPS 
040256 012777 177400 141346 MOV 8-256. , RHWC TA WORDS 4 ADER WORDS 
0264 Ole7 002110 MOV SURE ROM RO Frese Tuo yale TRUCTIO NS GETS 
0270 010077 141340 MOV RO, JRHBA BODR.OF WRFROM INTO RO AND 
SS REGISTER 
040274 012720 010000 MoV aFMT22, (RO)+ ORMA =16 BIT WORDS 
040300 012720 o00026 MOV #22., (RO)+ K=0, SECTOR=22, KEYS=0 
Rises Soest te tap) fae 
04031 eae 000400 MOV #256. RS COUNTER 
O40314 012720 177777 1S: nov pene > MOVE ACL ONES FOR DATA 
byoase por 4 BNE RANCH IF DATA NOT COMPLETE 
0324 012777 o0002 141312 MOV $22. , IRHDST RACK=0 SECTOR=22 
040344 013711 o002064 MOV DeWRIFOR, ARI z READY F WRITE HEADER AND 
TA WI H 62 INR 
SaOseS prS03s ayaa 141266 abe SPHTDS  SRHOF FORNA B Ror FLAG WORDS) 
040362 005077 141264 CLR @RHCA oC TNOER =) 
;#AS Breed mice, Ss ASSERTED BEFORE RUN IS 
raf ,RHCS1,RHCS2 CANNOT BE CHECKED 
RUSE RHC’ WIEL VARY DEPENDING UPON GATE DELAYS 
Son BY EREN Ss 
-#THE REGISTERS WILL BE SAVED IN REINTO BUFFER 
040366 004037 043306 JSR Ro aacaveR ; SAVE 
040372 001642 RHER1 : FROM 
040374 003154 RE INTO >TO 
040376 900015 13. ‘NUMBER SAVED 
;#GO TO WRITE HEADER AND DATA 
0400 0137 001660 MOV HAS MAINTENANCE REG. ADDR. 
Bso4 12710 000001 MOV Ono iS T oY Blacnos Tt MODE 
Babads 549 000001 141222 BIS ORO aA ise 
-#CHANGE SAVE I ‘a T EXPECTE VALUE 
puO4 16 0127 7 315s Mov else, ane fh AT Teer B, 
Base B1S737 Bhspio ppsiFe MOV aenitEn meine, af RHAS 
Miter 823535 eatery 3138 BIS TRE INTO *dav tO RHMR 
OYO44E peso3> 140000 003174 BIS TOTBIERR sae TufObeDs ;SAVED RHDS1 
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mn YY O8-NoV- ERROR REGISTER 1- BIT #10 "IAE’ SEG a1S4 
*#SAVE REGISTERS AGAIN SO THAT COMPARES CAN BE DONE 
ououss 904037 043306 jcr aeSAVER i SAVE 
atts neath RAER :TO 
040464 9000015 13. ;NUMBER OF REGISTERS SAVED 
#AS UPPER BYTE OF RHAS CAN. aciians NG IN A DUAL PORT 
 ¥OPE RATION THE UPPER WILL BE SAVED AS IS 
#50 THe OMPARES AR Aas VALID FOR THE LOWER BYTE 
O40466 113737 003171 od2125 hove QSREINTO+15, JBWRFROM+15;SAVE UPPER RHAS 
; COMPA REGISTERS BEFORE READ IN PRESET COMMAND 
‘WITH AFTER COMMAND 
040474 004037 043510 jsr RO, J#COMPAR 
p40500 3154 REINTO 5 EOD PBOFF oR 
0502 119 WRF ROM : TEST BUFFER 
040504 00001 13. : NUMBER OF REGISTERS 
040508 ow 14 $ ; FOR ERRO 
0510 14 3 
040512 040534 3$ * RETURN FOR GOOD COMPARISON 
14 013705 047620 2s: MOV HERWORD, RS TTING Y TO. INDEX 
s23288 mo aBte REAR US 
O40Se2 016537 01640 O42264 MOV RreR- -2(RS), sure tBSh A LING Ree. ADDRESS 
640530 104001 ERROR f FORCED I AE CAUSED IMPROPER 
o40532 oD0207 RTS PC RETURN FOR FURTHER COMPARISONS 
on ERRORS 


040534 OO4737 042614 38: JSR PC, aeCLOISk ;CLEAR GO BIT 
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CZ2RIGB.P11 08-NOV-77 08:30 Tle2l ERROR REGISTER 1- BIT #10 ‘IRE’ SEG C1SS 
5870 : 
$871 012706 001000 MOV aSTACK ;RESET STAC 


004737 042614 JSR PC, BecLD ISK ; CLEAR REGISTERS AND SET UNIT NO. 


tent 
Zan 


*#GIVE — DRG, BRHF 


o40s42 

o4oss4 
2878 040560 012777 000001 141078 hoy i SET IAGNOSTIC MODE 
58°? pubes pas272 pate 141056 1c ann » SAHA :CLE NOFIDEX 
3873 ;#THESE ARE REGULAR SETUPS 
5881 g40602 012777 477400 141022 mov hire ap eRtnc ;256 DATA WORDS 4 HEADER WORDS 
ae Bubets 815399 cy 14 MOV 6 OT ORNBA ‘DOR, sore MRF ROM INTO Ro END 

:BUS A SS REGISTER 
S885 040620 012705 000400 MOV #256. ,RS ; COUNTE 
5886 040624 012720 177777 1$: mov a-1, (RO) + :MOVE ALL ONES FOR DATA 
Ba aces ea eg rf H_ IF DATA NOT COMPLETE 
2889 040634 012777 o00000 141002 MOV $0. , @RHDST RACK=0 SECTOR=0 
5891 
S892 O40654 013711 Ood20b2 MOV JeWRIDAT, ARI = RE M FOR WRITE 
5893 :DATA Wi H 60 IN RHCS1 
5894 040660 002006 CLR JsERFLGS 3CL hehe Eee 
589s 040664 O12 019000 140756 MOV aFMT2e2, JRHOF Brot (16 BIT WORDS) 
256 Bas 72 005737 002036 TST QsRPOG =; MOVE FL TO. ITSELF TO 
2593 ni eed 001404 Beo 4§ 04,19 VE AS REGU IF FLAG = 
5 040700 012777 OO14S7 140744 MOV #815. ,9RHCA ;CYLINDER = 815 (ONE TOO MANY) 
2901 040706 9600403 BR 5g + REAP DRIVE AS RPOG 
5903 040710 012777 000633 140734 4S: MOV #411. ,@RHCA :GYLIN R = 411 (ONE TOO MANY) 
204 IVE AS RPOY 
5906 i #AS TEXCEPTION IS ASSERTED BEF 
5907 D RHWC, RHBA, RHCSI RHCSe CANNOT BE CHECKED 
2308 ie bee WIE VARY 1 SEPE ING UPON GATE DELAYS 
203 #0N D EREN S 
591 gene REGISTERS WILL BE SAVED IN REINTO BUFFER 
eslg 040716 904037 043306 S$: JSR Ro aacAveR ; SAVE 
91 07 1642 RHER1 >FROM 
5914 040724 003154 REINTO :TO 
Egis 040726 000015 13. :NUMBER SAVED 
E917 ;#GO TO WRITE HEADER AND DATA 
5318 Daar34 OLS7TD  BOOEBT HOY SDM. ORD eT DIAGNOSTIC MODE Sno” MOOR: 
55) Bupead 27 later 140672 Bis 320 Dah. iss 
*#CHANGE SAVED REGISTERS TO EXPECTED VALUE 

5924 04 012737 oO02000 002154 tov wIAE @*REINTO 
6925 040754 0127327 O0000l O0315& MOV  DSREINTO*2; savED RHOST 


CZRIGBO,RPO4’S’& DSKLS CTRLR 
CZRIGB.P11 08-NOV-77 08:3 
5 07 13737 002016 
592 Mead O5e730 000001 
5928 040776 737 140000 
256 
5931 941008 g0403 043306 
2335 ByiBts 00211 
5934 041014 900015 
5935 
5936 
5937 
5938 
5939 041016 113737 003171 
5940 
5941 
594 
ss 
5944 041024 004037 043510 
94S 1939 1S4 
46 1 110 
exe ildee Seip 
Zeus oyioGs pyib4d 
250 041042 041064 
Bee 1044 013705 047620 
5954 ioee Dibes? 001640 
5965 1060 104001 
5956 
5957 041062 000207 
5958 
5959 
5960 
5961 941064 004737 042614 


MACY11 39 


002125 


042264 


(1 
le 


es: 


3$: 


O46) 
2 


:S4 PAGE 154 
ERROR R REGIST l- BIT §10 "IRE? 
MOV aeart NI T,OWREINTO*LY 5 {SAVED RHAS 
BIS OMD 16 
BIS sara! ERR, DBREIN olsa® ;SAVED RHDS1 


ates REG SaSavER AGAIN SO _ THAT COMPARES CAN BE DONE 
JSR ; SAVE 


1 : 
mee 
13. ‘NUMBER OF REGISTERS SAVED 
S UPPER BYTE OF RHA S CAN CHANGING IN A DUAL PORT 
{ROPERAT ION m UPPE oF HAS S WILL ee SAVED AS IS 
oMPDR THE LOWER BYTE 
ho OvB SeREIN TO+15 RS Aer ah, Mas UPPER 
*C REGISTERS BEFORE READ IN PRESET COMMAND 
teWITH AFTER COMMAND 
ISR RO, J#COMPAR ; COMPARE 
RE INTO 5 $OOD FER 
— ; OF REGISTERS 
: :RETU BEN FOR ERROR 
3s + RETURN FOR GOOD COMPARISON 


MOV QeERHORO, »RS i GETTING. REAOY AP ae 


HOV RrERI-2(RS), aunebAOR BS LING REG. ADDRESS 

ERROR ED IMPROPER 

RTS PC iReGisre FOR FURTHER COMPARISONS 
;NO ERRORS 

JSR PC, J#CLOISK ;CLEAR GO BIT 


SEG S1Sé 


BL 
au 
68 


eere ren 


: 
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UUIUTUTUTUTUUTUUTUTUT 
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& 


bbs ee ae ee te tee Be a Be ne ee 
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? 08:30 Tle3 


(1 
le 


08-NOV- END OF DRIVE SEG GiS7 

100 12737 0 177776 MOV #0,P ;REINSTATE PS TO 0 

186 bi ibaa MOV SRUNTT, -< SP :GET READY TO TYPE UNIT NUMBER 

172 1044 TYPDS 
sie 0 37 001112 MOV QeSERTTL,-(SP) ;GET READY TO TYPE NUMBER OF ERRORS 

i4 001112 CLR aSERTTL ; CLEAR TOTAL NUMBER OF ERRORS 
220 37 001102 CLR asSTSTNM ‘CLEAR TEST NUMBER 
2e4 737 O0200e TST aeSELECT :STARTING FROM 210 7 

041230 001413 BEQ 3s Test NEXT DRIVE IF NOT 
CONTINUE ON THIS ONE IF SO 

332 oose 001100 INC asSPASS NCRERSE PASS COUNT 

36 104901 041421 YPE SENOMG YPE END PASS # 
e4e 013 001100 MOV QeSPASS, -(SP) 
246 104405 TYPDS 
2SG 104401 041416 TYPE SENULL 
254 0001 007540 IMP aseTsTs ;00 NEXT TESTS ---------------------- > 
260 005337 001776 3S: DEC QsNOUNITS :NO. OF UNITS PRESENT DECREMENTED 
264 001413 BEQ SEOP : BRANC ALL 0 DRIVES COMPLETE 
266 013700 001774 MOV 3eUN I, RO ;UNIT UNDER 
272 012701 001754 MOV SUNITS ABLE 
E76 2100 1S: CMP (R1)+, aa iTS THIS UNIT JUST TESTED 
300 OO1401 BEQ 2s :BRANCH IF YES 
302 000 BR 1$ : Re H IF NO 
304 011137 001774 2s: MOV (R1), @@UNIT HIS IS NEXT UN 

10 000i37 007540 IMP aststs :GO FOR NEXT reas 2o----------------- > 


BODO DDD DDO 0 0 
aee8 


Ws) 
ifs 


$992 
$995 


###SUBROUT INES### 


OP ON Eyer WORKS. 


D_EXPLAINATION oF 
THE 
NG OF THe TEST. 


- USUALLY BACK fo THE BE 


moo oO 
pa ot os & 
ob b= bb ho ee oOo 
NU £ OMe 


— oe Spee eee IS USED THEN THE POINT 
T T IN THE TEST_URER PROGRAM CAN GO ARE: - 


Hs Fad R CONSIDERATION 
MUST rae must N THE TEST UNDER CONSIDERATION 
me SNOT OCCUR WETHIN:T TEST UNDER CONSIDERATION 
Eh Ren Se SET OND THIS OPERATOR SELECTABLE SEOPE’ LOOP ts USED 
a THe PROGRAM WILL Lge BACK TO TO eeeeé POINT LHEN 17 
) 


UNDER Eons TDERAT I BN 


KCOMES TO THE ENO OF THE TE 
I 4 THE LOOP SWITCH IS PUT DOWN THEN 


ae 
;##AFTER LOOPING FOR SOME T 
:##NORMAL OPERATION WILL 
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NNN 
Latur OW 


C13 


oo && 


sty 


rt) 


pepereernaae 


iY 
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-P1l = O8-NOV-77 08: 30 END OF PASS ROUTINE SEG Oise 
041436 000000 TESTAD: O ;FIRST ADDRESS OF TEST 
puis4o OPERSEL: 
1440 005037 177776 CLR PS ;MAKE PROCESSOR STATUS ZERO 
1514 013746 002032 MOV Q¥TSTNM, -(SP) iGET READY TO TYPE TEST 
1820 i 402 TYPOC NUMB 
1 3746 001110 MOV QsSLPERR, -(SP) GET READY TO TYPE LOOP BACK PC 
Ou1Sb4 osg8 TYPOC 
1 104401 001223 TYP , SCRLF 
OM 2 SOssie oooe ADD #2, (SP) GET LPADR 
eis . 
os pes 45 rae ABU tepS 3 aeSLPADR ' 
loasie RDOCT 
042206 012637 001110 MOV (SP)+, 98SLPERR ;GET LPERR 
O42el2 01374 001106 MOV aeSLPADR, -(SP) 
O42216 odo00002 RTI 
.SBTTL SAVE REGISTERS ROUTINE 
ssTHTS SAVES THE CONTENTS OF ALL HARDWARE REGISTERS 
*IN MEMORY LOCATIONS TAGED FROM “WC” TO “ECe” 
STH Ss ONE THAT C S ARE DONE WITH SAVED LOCATIONS 
ing Not pon REGISTERS. THEMSELVES. THIS WILL MAKE 
 xERROR PRINTOUTS FOR GO AD DATA Acways” DIFFRENT 
eee oie? 1632 PPT sass #RHWC, RO TART 
55 18701 65 1$3e MOV aWc RI Me oe ae fh F ERE SAVED 
ee 012702 000023 MOV wRHCC-RHWC +272 Re: O Re 
Oueese 013021 108: mov acRO}+, (R14 SAVE 
O4eO46 13 BN 10S 
042256 000207 BNE PC 
.SBTTL FLOAT 1 AND O 
;#FLOAT A ONE AND A ZERO THRU A D REGISTER 
t SABSOLUTE ABoRESS of REG. UNDER host ise N RY 
2260 oo0000 : 1TS UNDER TEST 
eebe2 0000 LERR: RROR HLT ADDRESS 
2264 0000 REGADR: 0 
O42266 012537 O42260 BITST: MOV (RS)+, MASK sEETCH DATA MASK 
G4ee7e 012504 MOV (R5i+, RY :GET ADDRESS OF REG. UNDER TEST 
42274 610427 oO42264 MOV RY, REGADR 
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6074 942300 010537 oue262 


gg 
ay 
fururururory 
z5 
NNNN 
Le 
2288 
lala) 
WWOO 
S909 


BeeRsaad | 
222999 


6084 ue 48 
608s s 
6086 346 Tet artes 
6087 O423S4 001411 
6088 356 108737 001103 
6089 2362 001406 
6090 042364 "ieigga 
6091 O42366 13777 001774 
eps 042374 004737 055172 
epee eon 010337 poles 
Be Rem Be Rees 
£098 Oueuee 13714 Oli 
6039 e426 11437 Boi 

7 2 


i 
: 


eee? 
ae 
aA: 
8 8 88 8 
8 oe 


Rese fie 
1005 

O4¥eS10 011446 

Bare Bee RTT 

O4eSee Beae> 177534 

O4eSe& 000240 

042530 900207 


POOP K OO OOOO OOOO TOTO T OO TTOOO OOO 
hororurprotvrononutyr-+-+-+-+-+ +--+ QO OOOOO0000 
(DW YUE RICO VOW £ w- ODS VR LOH So 
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042574 
136564 


137242 


001124 


001126 
001126 


001124 


FLOAT 


BLT: 


BLTe2: 
BLT3: 


4$: 


es: 


35: 
1S: 


oe 


oF OF oe ee ee ee ee ee 


O8-NOV-77 08:S4 PAGE 157 


1 AND O 
MOV RS, LERR ; GET ERROR RETURN ADDR . 
ADD #4! RS MOO EF RETURN ROOR 
MOV #1; R3 INI 1aLd E bATA Pa Re TERN 
JSR PC, BLT2 :OUTPUT FLOATI RO 
JSR PC’ BLT2 : OUTPUT FLOATING SRE 
ROL R3 ;SHIFT PATTERN 
Bie ten RANCH IF NOT COMPLETE 
Rs ORS iRETURN 16 eer 
COM war esto ar "PATTERN 
MOV ® 13, asLAd Sey 
BIT 3; aSWR 
BEG ERANCH 1F NO 
TSTB JeSERFLG ‘ANY ERRORS 
BEQ 4g ;BRANCH fF _NO 
RESET sSTART WITH A INI 
MOV QSUNIT,DRHCS2 ;SET UNIT ER UNDER TEST 
JSR PC, aeSTKINT sINITILIZE K 
: INIT COPING LOOPS 
MOV R3, 8SGODAT ; STORE G60B BA 
COM aehasKk :AND MASK “atte "PATTERN 
BIC SarASK, @sSGODAT ;CLEAR THE REST 
nov OES ORE Ore REGISTER 
HOV ae) : INPUT FROM REGISTER 
BIC gernak ,I8SBODAT ;AND MASK OUT RECEIVED DATA 
COM *RESTORE MASK 
CMP o8s T, assBopaAt -I1S DATA CORRECT 
BEQ ;BRANCH fF GOOD 
MOV RY) geSB00AT 
CMP ie #RHCS 1 ;REGISTER UNDER TEST RHCS1” 
BNE ANC 


I 
BIS #RDY! OVA, asscpoat; -SET RDY AND DVA 


BR 3$ 
CMP SeRHCS2, RY {REGISTER UNDER TEST RHCS2” 

BNE 3s 8 IF NOT 

Bre or CLIRGOR IKE RAND OR BIT 

81S (SP )+ ns eeaas 8 ETP ROR BITS IF NEEDED 

ISR PC, G0 TO REPORT ERROR 

NOP 6 REPLACE BY 104420 FOR LOCAL SCOPE LOOP 


-SBTTL CLEAR MEMORY ROUTINE 


THIS CLEARS ANY BLOCK 4 MEMORY 

FILLING IT WITH ANY DAT 

CALL 

JSR RO, CLAREA 

: ; STARTING ACORESS OF BLOCK 
z ;OATR TO BE FILLED 


O JUMP OVER RTS 


OO 


COOP OOOCOCOOKOrrT od 
TEEEELEWOUWUWUUUW OO 
FHEOM—-OBBITHLOW-O Hw 
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Pil O8-NOV-77 08:30 CLEAR MEMORY ROUTINE SEG C160 


;#R1 Ae YE HAVE STARTING ADDRESS OF BLOCK TO BE FILLED 
a AFT «* au Ue TRA ATR wil Hees TWICE NUMBER OF LOCATIONS 
:*T0 AVOID MOYVIDE ROUTINE TWO DECREMENT Re WILL BE USED 


O4 235 CLAREA: " 


2 
O4eS4O0 012001 OV (RO)+,R1 ; FROM 
O4eS4e 01e00e MOV (RO)+,Re 310 

es44 012003 MOV (RO)+,R3 ;DATA 

eS4#6 16010e SUB R1,Re ;NO. OF LOCATIONS MINUS TWO 
O4eSSO O6e70e o0000e ADD #e,Re :GET TWICE ba OF LOCATIONS 
O4eSS4 Bi ORek 1$: MOV R3,(R1)+ ;MOVE IN DAT 
O4eSS&6 005302 DEC Re 
O4%eS60 00530e DEC Re 
O4eSbe 001374 BNE 1$ ;BRANCH IF NOT COMPLETE 
O4%eS7e Od00200 RTS RO ; RETURN 


rut 
Ata atalialialisialialislialislislialialesaleslealial alsa called tal tals DD 
yeresnareenanaNNNNE SS Se 
PON BSSGEAE BG ioe- ote eure oroe-O.be0 a ff 
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Pil OS8-NOV-77 08:30 LOCAL TRAPS SEG S16} 


orn. LOCAL TRAPS 


042574 000000 LAD: 
042576 032777 OO1000 136334 T.SCOP: BIT sSWO9, a@SWR 
042604 001402 BEQ 1$ 
042606 013716 042574 MOV @eLAD, (SP) 
042612 O0000e 1$: RTI 
; EXAMPLE _ i. USE OF THE ABOVE 
:#THIS WILL L —- X: AND SCOP1 PROVIDED THERE IS NO “NEWTST” 
: #MOV ax, LAD 
:#X: --- es 
js 0 see Se 
;* SCOP 1 


042614 013701 001640 CLDISK: MOV JsRHCS1, Ri ;R1 WILL BE CONTROL AND STATUS 
042620 013702 901536 MOV dBRHCSe. R2 ?Re WILL BE CONTROL AND STATUS 
042624 013703 001662 MOV J*#RHDS1, R3 !R3 WILL BE DISK STATUS REGISTER! 
042630 013704 O01642 MOY JeRHER1; RY 'R4 WILL BE ERROR REGISTER #1 

26 012712 oo0040 MOV #CLR, aR2 - CLEAR ALL REG. 
O4$2640 o:371le 001774 MOV asUNIT, dRe ;REINSTATE UNIT 
O42644 O0050.. CLR aR1 CLEAR FUNETION BITS 
42646 000207 RTS 


j 


OO 
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DD 
Cat, 


COCK OO COOK MO MKS KCO OOK Oorrs 


+ = = Bae Bae be bo be Bs hb bo be be ae be be be ee he ee 
2 SEIS ALSE CTE ITTER ELI ag 


forofororurorururorure 
kee part yr get a 
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Pll 08- -NOV-77 08:30 CLEAR DISK ROUTINE 


-SBTTL CHECK DISK STATUS ROUTINES 


;*#THIS CHECKS THAT DEVICE SyeIL Ae LgvA> we READY (ROY) IN RHCSi = 1! 
Frew CHECKS THAT DEVICE ote DEVICE READY (DRY) IN RHOS1 = i 
#I1T ALSO CHECKS THAT NO OTHE BITS TN’ THESE REGISTERS = 1 


042650 011637 902014 coment MOV #PCJSR ;SAVE PC OF JSR+4 
042654 162737 O0O004 002014 SUB +, rabPe ase Cc ISR 
O42662 004737 O42220 JSR PC’ J#PUTREG SAVE REGISTERS 
O42666 G2e737 OO4200 001714 CMP WDVATRDY. aacsl ;RHCS I SHOUL ULD HAVE DEVICE AVAILABLE 
042674 001423 BEQ 3s + BRANEH ReneS GOOD 
042676 032737 oO04000 001714 BIT #DVA, a8CS1 ;BAD SO TEST DEVICE AVAILABLE 
042704 001004 BNE 1$ :BRANCH IF DVA THERE 
042706 010137 001122 MOV R1, a8SBDADR :ADDRESS OF BAD REGISTER (RHCS1) 
042712 104026 ERROR 26 ?RHCS1 DID NOT HAVE DEVICE 
‘AVAILABLE AT STAR TEST 
042714 000413 BR 3$ : H TO NEXT COMPARE 
042716 032737 O00200 001714 1S: BIT #RDY, 28CS1 : TEST READY 
042724 001003 BNE 2s oe ROY THERE BRANCH 
042726 010137 001122 MOV R1, a#SBDADR : ADDRESS REGISTER (RHCS1) 
042732 104026 ERROR 26 :RHCS1 DID NOT HAVE READY 
:RIGHT AT START OF TEST 
042734 900403 2$: BR 3$ tBRANCH TO NEXT COMPARE 
2736 010137 901122 MOV Ri, a#S$BDADR :ADDRESS OF REGISTER (RHCS1) 
O42742 104026 ERROR 26 ‘RHCS1 HAD S BITS OTHE 
iT DVA AND ROY SET 
Roo OTHER BITS SHOULD BE 0 
042744 013746 001736 3S: MOV as8DS1,-(SP) 
cre feerle Bbde0s Bie HOAISR: (8) igen MESTEOHREEEE OT 
2760 B65 1455 BEG as nail THEY” 
042762 032737 O00400 001736 4S: BIT sOPR,a8DS1 i TEST DRIV PRESENT 
042770 001004 BNE Sy TINUE For 
042772 010337 oO01122 MOV R3, J#SBDADR ae of Babe REGISTER (RHDS1 
042776 104026 ERROR 26 Osi wgut NOT HAVE DPR 
043000 000413 BR 7§ 
94300¢ 737 000200 001736 SS: BIT #ORY,2#DS1 TEE BPAY 
301 10 BNE 6$ wa TERE BRANCH IF GOOD 
043012 010337 001122 MOV R3, J#SBDAOR Ree OF BAD RE REG ISTER (RHDS 1} 
043016 1 40e¢ ERROR BS “Boe 
By 308e 010337 001122 6S: MOV R3, J#SBDADR + BARES oF oBne sie (RHDS 1) 
043026 104026 ERROR 26 sms! “he oth 
ALL "OTHER Bis SH SHouL8. ge ts) 
043030 000207 7$: RTS PC Abb, Ot ES 


043032 062716 OO000DE 88: ACD #6, \SP> ;ADJUST STACK TO GET OVER HALT IN TEST 
S43036 000207 RTS PC :RETURN TO TEST AND CONTINUE TESTING 


ceny GRO 
ae RIG8. el 
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CHECK DISK STATUS ROUTINES 


ey 
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PLL 
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Oo0oco& 


MACYL: “RULE? 0 


062014 
001714 


001714 


001736 


001736 


HECK DISK ota 


I 


13 


754 PAGE 162 


V-77 
Tus ROU INES 


;*#THIS CHECKS THAT DEVICE AVAILABLE (DVA) AND READY (RDY) IN RHCS1 = - 
;#AND CHECKS THAT DEVICE PRESENT (DPR), DEVICE READY (ORY) IN RHOSI = 


CHECKE: MOV 


B 
2s: BIT 
3$: BIT 

=] 


4$: RTS 
S$: ACD 


(SP) aePCISR 
4 RPC ISR 

pc’3 #PUTREG 

aROY. aacsi 


1$ 
R1,as#SBDADR 
26 


4§ 
#OVA,aa8CS1 
$ 

Ri , aeSBDADR 
26 

4$ 

8ORY, #051 
R3,d38S8DA0R 
26 


4§ 
#DPR,ad80S1 
R3,a8SBDADR 
26 


PC 
#6, (SP) 
PC 


5 SAVE Eo"t a 


Ps SAV! SREGISTERS 
aE READ uD HAVE DEVICE AVAILABLE 


ae 
S23 
E2808 


ee BVA, ROY 
p HAVE DEVICE AVAILABLE 


DBBoOD 

ee 
+ 
w 

Ree-" aR 


ra 
wwr 
me 


5.5 


iS 


DODD 
2, 


T 
H_OU 
1 SHOULD HAVE ‘PR, DRY 


jo IF T 


NG REGIST TER 
:RHOS1 DOE T Rave. Ber, ORY 
BeeT seiko save or 

BRA qt CENTINOE IF THERE 


iE NCH ou 
AILING REGIS ER RHOS 1 
RHDS1 DOES NOT HAVE DPR,DRY 


RETURN TO TEST AND HALT 


;ADJUST STACK TO GET OVER HALT IN TEST 
:RETURN TO TEST AND CONTINUE TESTING 


es 


J13 


CZRIGBO wie DSKLS CTRLR1 MACY11 30(1046) O8-NOV-77 08:54 PAGE 163 


C2ZRIGB.P1 O8-NOV-77 08:30 CHECK DISK STATUS ROUTINES SEG C1ES 
s3ee 
;* WAIT LOOP 
sr ES REEF gh Oe Sour 6-25 DISROSER ET Egeoteg eprom cr ; 
= % = . , 
P55 1% WITH CORE ERROR IS INDICATED AFTER ABOUT 650 MILLISEC (MIN) 
Sy oiziey 177777 TINCNT: 177777 9 _ocq, WAITING COUNT, 
esse hea bieeoo po0002 “"" MOV 2(SP).RO :GET ESS OF REG. ADDERSS 
6277 043174 010037 001204 MOV RO, aeSTMP3 :WAT PC+2 IN STMP3 
6278 943200 162737 900002 001204 SUB #2 aesTMp3 :WAT PC FOR TYPEOUT 
6279 3206 012037 001176 MOV (RO)+, 4s MPO !WAIT REGISTER ADDRESS 
6280 043212 18037 001200 MOV (RO)+’ aaSTMP 1 : ON BI 
6281 O43216 pi 0006: MOV RO, 2(SP) 'RESTORE RETURN ON STACK 
pee Busssa 615999 o4sie4 oo1202 nov a sSTMP2 RE SORRY COUNT 
beo4 Ou3e32 033777 Boi2e0 135736 1S: Bit esthPL, 38 thrO :1S requtneD Bit THERE? 
6286 B4ae4 Sup necked 001202 DEC SS stnp2 + BOUNT 
6287 O43e% 001371 BNE 1$ ‘BRANCH IF _NOT TIME UP 
6288 043250 013737 043164 001202 MOV SaTIMCNT, a8STMP2 - TEMPORARY COUNT 
6289 Ou3256 033777 001200 135712 3S: IT #STMP1, 2STMPO JS REQUIRED BIT THERE? 
6290 3264 1007 NE $ : H IF YE 
6291 043266 005337 o01202 DEC aesTMPe : COUNT 
e545 B43554 p03353 135676 (01126 AOY 33 1nPo aseS800AT 5 BRANCH EA CONTENTS” = 
6294 043302 104016 ERROR 16 ‘ :WAITED ON BIT FAILED TO SET 
6295 043304 oode 2$: RTI 
6296 
oS ge 
be98 ;* CALL FOR THE ABOVE WAITLOOP IS 
:% 
: V A, aex ;A_CONTAINS REGISTER ADDRESS 
p53 “sg - tae ‘HENCE X$ WILL HAVE ABSOLUTE REG. ADR. 
6303 ;* - - 
£305 if WAT 3 
6306 :#x$: O ;ABSOLUTE REG. ADDRESS UNDER WAIT 
£207 : “WORD O :BIT WAITED FOR 
5208 i# : CONT INUE 


cZRIGBO RPO4’S.6 DSKLS CTRLRI 
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6310 

6311 

63le 
6313 
6314 

6315 

6316 

6317 

6318 
6319 
oan 
63e3 043316 012002 
63e4 043320 012003 

63eS O433ee O13lee 
6326 043324 005303 

63e7 33e6 001375 
63e8 043336 000200 
6329 

6330 
6331 

6332 

6333 
6334 

6335 

6336 
ae 

6339 043340 012737 010000 
6340 Riaate 112737 000001 
6341 3354 112737 000001 
e343 043366 Rosy Bavece 
6344 azar 01 3 000044 
pe Ree fee cals 
634 ™ 19 7500 
6348 34le 051400 

6349 
5 
et 043414 737 O42614 
6254 O43420 012777 177730 
6355S O434e6 012777 3154 
& wiz 1157 000001 
fe Bae lige foe 
fe RRS Ble? BRASS 
53 
e362 3460 005077 13616 
Pars 3476 9013711 basoe8 
6365 O43502 004737 047340 
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CHECK Brisk STATUS ROU INES 


SAVER: 


1$: 


047500 WRCHHD: 
047503 
047502 


047560 


136204 
136200 


000001 
136170 


-SBTTL SAVE ROUTINE 


*THI A SUBROUTINE TO SAVE REGISTERS 
:#IN He g REGIS ER TABLE TO ANY LOCATION 
eye a aRSAVER 
parnon 
:#NUMBER OF WORDS SAVED 
MOV (RO)+,R1 ; FROM 
MOV (RO)+;Re :TO 
MOV (RO)+’R3 : NUMBER 
nov acR1)+, (Re)+ :;SAVE REGISTER CONTENTS 
BNE 1$ :BRANCH IF NOT DONE 
RTS RO 


-SBTTL WRITE CHECK ROUTINE 


+ SCTE INDE A SUBROUTINE TC DO WRITE CHECK HEADER AND DATA 
;*#CYLINDER O, TRACK 1, SECTOR 1, KEYS 0 


;*¥THESE ARE TO | FOR cTLINOER USE ONLY 


Mov ante cYLIN R O FORMAT 16 BIT WORDS 
MOVB a1 348 COTR#  TRACK= 


:S CTORS. 
CLR Sak yee 


CLR SaKEY 
MOV oo 


JSR ae” *Sucrc 


A_WORDS 
its 18 A READ OPERATION 
O CALCULATE CRC 


;#THESE ARE REGULAR SETUPS 


JSR PC, @#eCLDISK s SEY RO SLERR OF Sk, REGISTE 


MOV #40. JRHWC oe) BEARER RAORDS 
MOV #RE INTO, JRHBA TING ADDRESS OF READ BUFFER 
MOV sl, yet CTOR=1 

MOV 1, 1(SP) K=1 IN UPPER BYTE 

MOV :TRRCK=L CTOR=1 IN RHDST 


HOST 
MOV (ads, 9RHDs @RHOF 5 
bce 3 CTION INHIBIT BECAUSE 
CC LOGIC IS NOT CHECKED YET 


CLR gnvice Yt NOG R= 
MOV sWRCHDT, @R1 gat eee K HEADER AND DATA=S2 
JSR PC, a8COMHD ;WRITE CHECK HEADER AND DATA 
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C2RIGB.P 11 O8-NOV-77 08:30 WRITE CHECK ROUTINE SEG 0167 
3 ;SAME AS READ HEADER AND DATA 
5368 o43soé 000207 RTS PC ;RETURN TO WRITE CHECK TEST 


6370 
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CZRIGB.P11 O08-NOV-77 08:30 WRITE CHECK ROUTINE SEG Gite 
6371 
6372 
6373 .SBTTL COMPARE ROUTINE 
ears 


NT DATA 


e 28 \3"THIS IS A TWO BLOCKS IN MEMORY 
Sas ie ie ey 


feron 10 PRINT HEADER 
TO PR 


35532: 
3% 


6382 dh HAS ONE es Sot te oF OnPARE Oro BE COMPARED 
COMPAR: 
fee Ree clema iB eS WP REE 
23ea Bi3es8 Bt 33 001176 MOV (RO)+,STMPO TRETORN ON ERR 0 PRINT HEADER 
6389 ea Bi 001200 Mov (RO)+, STMPL ; RETURN ON foes TO PRINT DATA 
£330 sue 1 hoy Ra, R4 3NO BF WORDS TO BE COMPARED 
ste paseve S183 ~_o - CaP RRS Ree COMPARE GOOD ITH TEST DATA 
pies 043554 001426 BEQ 3S :BRANCH IF GOOD 
639 Ou3556 D141 001124 MOV ~(R4), B¥SGDDAT ; DATA 
6398 142 1126 MOV -(R2) a8 - DATA 
ot a GRUP AR Brew ner 
ae Ope iseare sr py Saree PRE INCH TO avorD PRINTING NEXT ERROR 
Eye Ov 3be 135366 2s Ep Pe asTmp ieee 18 N 
6YUS 361 ee S$ CMP (RI)+, (R2)+ : -(R1) ), Bio -(Re) FOR ERRORS 
6406 043614 i5756 135320 MOV aSWR, ~(SP) : SWITCH SETTIN 
6407 O436<0 baz? 6 irr i77 BIC atc 13h? KEEP Y Sid Ton" $ AND 8 
6408 c r] , «SP)+ 31S 7 
eirg ise? Sous x ieee cut ves 
ae! 3634 001344 or BNE 1§ ;BRANCH IF ALL NOT DEVICE 
pais eta 000200 = RTS RO ;RETURN TO MAIN PROGRAM 
6415 
6416 
ete saTHIS IS A SUBROUTINE TO DO WRITE CHECK DATA 
6419 *#CYLINDER 0, TRACK 1, SECTOR 1, KEYS O 
aH oneet ARE TO SET UP FOR DISKLESS USE ONLY 
RS ee Tee WOE RTE OO Bile EEE barr °vome os tr sows 
6425 043666 112737 000001 047502 MOVB SECO TR ; SECTORS 1 
6426 043674 047504 CLR :KEY1=0 


WWW 


2 992° 999 
+t ££) 
R 88% 
oO tor 
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O08-NOV-77 08:30 COMPARE ROUTINE SEG 0169 
700 005037 047506 CLR aeKeyv2 KEY2=0 
704 012737 000040 047560 MOV #32. , J#DAWORD 'NO_OF DATA WORDS 
le 037 047510 CLR aex !THIS IS A READ OPERATION 
1g 904537 o44022 JSR RS, JaCRC ;GO TO CALCULATE CRC 
24 1900 WCRC 
;*THESE ARE REGULAR SETUPS 
043726 004737 042614 ISR PC, J#CLDISK ;SET UP_GENERAL REGISTERS 
:AND CLEAR DISK REGISTERS 
012777 177740 !235672 MOV # 336 DATA WORDS 4 HEADER WORDS 
012777 003154 135666 MOV SRE AtQ,a ORMBA i STARTING ADDRESS OF READ BUFFER 
112746 000001 MOVB #1,-(SP) : SECTOR=1 
7S2 12766 000001 000001 MOVB #i° 1¢8P) :TRACK=1 IN R BYTE 
60 186 135660 MOV (SP)+, ARHDST ;TRACK=1, SECT =1 1 IN RHDST 
64 012777 O14000 135656 MOV SPMTSST ECT. @RHOF *16 BIT WORD 
ERE f CTION TNAIBE BECA SE 
é I 1§ NO KE 
005077 135654 CLR @RHCA =0 
013711 002056 MOV DSWRCHEK, IR1 CHECK DATA=SO INTO RHCS1 
004737 047340 ISR PC, J#COMHD suey t CHECK HEADER AND DATA 


;SAME AS READ HEADER AND DATA 
000207 RTS PC ;RETURN TO WRITE CHECK TEST 


x 
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3G8.P11 O8-NOV-77 08:30 COMPARE ROUTINE | SEG 6176 
64S4 
pues .SBTTL. CRC GENERATION ROUTINE 
6457 
6458 : THIS aS A Ano Sy Re TO CALCULATE CRC FOR THE FOUR 
6459 HEADE THEM IN “WCRC” AND ° 
5460 ; tRL CRC NCREMENTED CRC VALUE IS HERE 
6461 ae - RE Posty ON 2 VALUE C 
6462 :#R3 - TH TION i6 I.£. OUTPUT BIT VALUE B 
5463 7#R4 - TH 59 TION 15 VALUE E 
6464 :"#STMPO - 
BYES i uSTNPe - TS PER WOKD = 16 
6466 :eSTMPS - T Y REG. 
S467 :#STMPY - T Y REG TO TRANSFER CARRY 
pues :#STMPS - THIS HAS DATA BIT VALUE 0 
64?’ ;#FETCH DATA BIT D 
6471 :#B =D XOR 16 
6472 :#C = B KOR 2 
6473 +3 = 8 XOR 1s 
6474 :#ROTA E IGHT ONE POSITION 
6475 :*B G TO POSITION 1 
647 :#C SOES TO POSITION 3 
6477 :#E GOES TO POSITION 16 
6478 :#REPET 64 TIMES 
6479 > #CALL JSR RS, 9eCRC 
6486 eX ;FIRST LOCATION AT 
b4ei > #Y :PUT CRC IN WCRC FOR READ GCRC FOR WRITE 
6483 oO4402e2 CRC: 
6484 044024 012500 MOV (RS)+,RO ;GET POINTER TO CYL_NO. 
648S 4036 995001 CLR Ri CLEAR WORKING LOCATION 
BYES Ba4Ou8 9039 1210 CLR aasT 5 
6487 O44O44 012737 eteateey 001176 MOV #4, J8STMPO COUNT 
6488 1 O4 16$: MOV cRO)+ gasire3 HTERPORARY WORD STORAGE 
6489 1 001202 MOV * 2 i8 
£490 37 1 001206 MOV DeSTHP3, DUSTMPY : RPORBRY ¥ WORD STORAGE 
6491 7 1204 1S: ROR #$TMP : T LS6 IN TO * 
e492 001210 ROR ae$ TMP :GET “Cc” INTO $STMPS 
6493 gui41Ge 032701 000001 BiT #B1T0,R1 ?1S POSITION 1S HIGH 
6494 4106 001403 BEG 1$ ‘BRANCH IF POSITION 16 LOiK 
6495 O44110 012703 100000 MOV 8BI1T15,R3 :GET POSITION 16 
6496 O44114 SOo401 & 2g 
6497 O44116 O0S00 1$: CLR R3 ;GET POSITION 16 
6498 044120 063703 001210 2s: D aeSTMPS,R3 ;XOR POSITION 16 WITH D 
6500 O44124 032701 o4O0000 BIT #BIT14,R1 315 Bae er Fon 2 HIGH 
6501 1 403 BEG :BRANCH IF POSITION 2 LOW 
650 : 70 100000 mov 8 IT15,R2 :;GET POSITION 2 
6504 140 3S: CLR Re ;GET POSITION 2 
B505 O44142 60302 4§: ADD R3, Re iXOR B WITH POSITION 2 
£507 4144 032701 oD0002 BIT #BIT1,R1 1S POSITION 15 HI 

de Ciated raptors BEO TR NGR it POSITION 1S LOW 
6509 O44152 012704 100000 MOV #BIT1S,R4 :GET POSITION 1S 


GB 
GB. 


Gale 


UU UU UT UU 


t 
CLOKLOOSTO TOO OCT rors ‘s 
eat 


0,RPO4’S”6 DSKLS CTRLRI 
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044156 O00401 

044160 pono 

044162 304 
4164 7 001206 
wi9 902081 
iz S073 

cam 042701 100000 
m- : S 1 100000 
B19 S070 

044214 042701 d20000 
4559 701 Geo000 

2eb 
044230 100403 


012700 177400 
310 0127 ee 
350 Bt 1416 
3ee 3 
4 1 
pan 3e4 Bi eFar oo00cel 
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CRC GENERATION ROUTINE 


es: 


SETOSK: 


1$: 


es: 


aie Bs iG T POSIT 

S05 RS, RY posit 18h 12 wrt 6 
ROR aeSTMPY a L NTO “C” 

ROR Ri :GET ABOVE C INTO R1 
TST R :T 8 

BMI 7 : CH IF B=1 

BIC #BIT1S, Rl :SET B IN POSITION 1 
B15 a8 T15,R1 TEs B IN POSITION 1 
ST R :TEST C 

BMI 11$ ;BRANCH IF C=1 

BIC #g1T13,Ri :GET C IN POSITION 3 
Bis #61T13,R1 ;GET C_IN POSITION 2 
TST RY : TEST E 

BMI 13$ :BRANCH IF E=1 

BIC #B1TO, Ri :GET E IN POSITION 16 

BFS #8ITO,R1 ;GET E IN POSITION 16 
DEC assTNPe :BIT COUNTER 

BNE 15$ :BRANCH IF ek NOT DONE 

#STMPO $ WORE COUNT 

BNE 16 RANCH IF 4 NOT DONE 
noy R1,a(RS)+ UT CRC WHERE DESIRED 


ater A Sueno Ne te el THE SIMULATOR DISK FOR 
frack 1, SectOr J 


aKEY v2 i 
sexe THROUGH THE JSR RS,asCRC 
;#256 WORDS OF 177400 


;*#CALL JSR PC, a#SETOSK 
MOV #177400, RO ;DATA_IN THE DISK 
MOV #eS6. Ri TE 
MOV #01SK; Re iSTART OF paymuLAaTor DISK 
MOV RO, (R2)+ :MOVE I 

Ri ; COUNT 

1 i BRANCH | F NOT_ COMPLETE 
MOY #17. ,R1 je ECC W 1 DATA GAP 
CLR (R2)+ eck Ecc, cen pare G GAP AND 
DEC Ri 
BNE 2s + RANCH IF NOT COMPLETE 


;#NOW SET UP FOR ODISKLESS USE 


SEG 0171 
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CZRIGB. P11 08-NOV-77 08:30 CRC GENERATION ROUTINE SEG 0172 
6566 
6567 044340 012737 g19900 047500 MOV aFMT22, JBCYL ;CYLINDER O (16 BIT WORDS) 
568 044346 112737 000001 047503 MOVB #1,a8SECOTR+1  ;TRACK=1 
6569 4354 ll 237 1 47506 MOVB #1) aeSECOTR :SECTOR=1 
657 4 12737 1 7504 MOV #1; aekEY1 tKEY1=1 
657 4 12737 0001 047506 MOV #1’ aekEYe :KEYe=1 
6572 OuN276 13737 p00409 047560 MOV 256. ,a8DAWORD :NO. OF DATA WORDS 
657 4404 phae3o 44022 JSR RS, JKCRC GO TO CALCULATE CRC 
6574 O44410 047500 CYL :FIRST CRC WOR 
6575 O444le OS14 WCRC :PUT CALCULATED CRC 


00 
6S7& O4%44ee 000207 RTS PC 


C2RIGBO, RPOY’S “6 


C2RIGB.P11 


tubal aaa tat tata 
2 bb b= = bb (CD 


o 
oO 
au 


Rik 
WN OWONOU SW OW 


roo 
Phoke 
fury 
me 


44554 
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002014 
000004 
042614 
001210 
135164 


2 


ge 
fu 
N™N 


~ 
Bowe 
NNNN 


— bb be 


00 OOK kK}-0O00 
Rr 
vee Se 


000001 


2677 135140 
2077 138122 
77 


135120 
2037 047510 


012777 014000 


002006 
004737 047340 


GO4737 O4e220 
00S737 O02006 


1034 
S737 047510 
101s 
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CRC GENERATION ROUTINE 


HCCRCE: 


002014 


135122 


;*THIS IS A SUBROUTINE TO CHECK HEADER COMPARE ERROR 
:*#(BIT #7) AND CRC ERROR (BIT #8) 


;#CALL JSR RO, a#HCCRCE 


:* com ; COMMAND-READ HEADER AND DATA 
, a went DATA 

. eo 3 

:¢ 5 : aie 

;# T ; TRACK 

te =-N. :WORD COUNT 

a B !RHBA BUFFER START 

;# x !1=WRITE DATA O=READ 

te H tH=1 HEADER CHECK, H=0 CRC CHECK 

moe SOBUEEHRE BEC OF Ugh 

5k PA BacLO TSK. © INIT’ @ND SETUP GENERAL REG. 

MOV (RO}+, aR : COMMAND 

MOV (RO)+) JRHCA CYLINDER 

MOVB  (RO)+'-(SP) : SECTOR 

TSTB = (RO) + !UP DATE RO 

MOV (RO)+, 1(SP) : TRACK 

TST (RO)+ TE RO 

MOV (SP)+,3RHDST § ; TRACK SECTO 

MOV (RO)+’ IRHWC iNQ. OF DATA WORDS. +4 HEADER 

MOV (RO)+, @RHBA ‘UE RT NG ADDRESS OF BUFFER 

MOV (RO) +) aax ;X=0 tafe : ADE 

MOV eFMT22!ECI,ORHOF’; 16 BI ROD 

CLR DBERFLGS iBE8 CORRECTION  emeeaaie 

ISR PC, a#COMHD :¢ 


“FROM THE “COMHD” ROU THAT MEANS SECTOR GAP 
FI or SYNC gh PQER, ER CRC, HEADER GAP AND’ 
ible ONE BY AND SYNCS WERE CORRECTLY 


feo” 
#HEADER AND DATA ARE TO BE CHECKED. 


o- PC, J#PUTREG ; SAVE REGISTERS 
TST O4ERFLGS Y ERRORS ALREADY THERE 
BNE 10 ; H IF YES 

TST ax :1S THis A REA 

BNE 3$ :IF @ WRITE DATA BRANCH 


p*IF 1 PROGRAM SPROUTINE” HERE WITHOUT cfon cap PRINTOUTS 


SEG 0173 
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C2RIGB.F11 O8-NOV-77 08:30 CRC GENERATION ROUTIN 
6626 
bbe? thes THE READ He" ED WILL BE CHECKED 
6628 HEADER S SHOULD OMPLETELY READ AS WRITTEN 
6629 ORDS 5 SHOULD BE REA 
6630 + EREINTO ROUPE EN FILL p WITH O 
B53] : #WRFROM BUFFER HAS BEEN FILLED WITH EXPECTED DATA 
6633 O44SS6 004037 043510 JSR RO, J#COMPAR ; CHECK 
6634 O44562 002110 WRF ROM :G : TA 
663S O44564 003154 REINTO :TES FFER 
6636 4566 000400 256. :4 HEADER 2 DATA on 
6637 044570 04457 I i RETURN POINT FOR ERROR HEADER 
38 O44S72e 044602 23 ‘RETURN POINT FOR ERROR DATA 
6639 O44574 044640 10$ RETURN FoR GOOD COMPARISON 
6640 044576 104004 1$: ERROR 4 j READ NEX E ' 
6641 O44600 000207 RTS PC :RETURN TO COMPARISON SUBROUTINE 
6642 O44602 104005 23: ERROR 5S ; HORD NO 1 THRU 4 ARE 
6643 : HEADER WORDS AND HENCE 
6644 :SHOULD BE READ WRITTEN ON 
6645 : DISK WORD NOS. 5 ONWARDS 
E46 SHOULD NOT BE READ AND HENCE 
6647 :READ INTO BUFFER 
5648 ? SHOULD BE UNCHANGED 
b648 044604 000207 RTS PC :RETURN TO COMPARISON 
6651 O44606 900414 BR 10$ ; JUMP OUT 
6653 ;#NOW THE DISK WILL BE CHECKED 
6654 :#NO DATA SHOULD BE WRITTEN 
6655 i #RE INTO BUFFER R HAS BEEN FILLED WITH EXPECTED DATA 
6656 K HAS BEEN FILLED WITH 1 
6557 : SHRFROM HAS BEEN FILLED WITH 125252 
6659 O44610 004037 043510 33: ISR RO, 2#COMPAR ; CHECK 
0446149 602154 RE INTO ; GOOD para BUFFER 
6661 O44616 OS1416 DISK : TEST BUFFER 
044620 00 256 
044622 4630 : ; RETURN POINT FOR RROR HEADER 
6664 044624 46 S :RETURN POINT FOR RROR DATA 
6665 O44626 044640 10$ ; RETURN POINT FOR GOOD COMPARISON 
O44630 104004 4$: ERROR 4 ?READ NEXT 
67 O44632 000207 RTS PC :RETURN TO COMPARISON SUBROUTINE 
6668 O44634 0400S S$: ERROR 5 :WORD NO 
£669 :WORDS THE ot NO? 
6670 + HAV! EN D BY THE 
£671 :WRITE COMMAND 
6672 O446 0207 RTS PC RET N TO COMPARISON SUBROUTINE 
6673 O4464 720 10$: TST (RO)+ : HIS A HERE ON HCE CHECK 
6674 O44E4 1442 BEQ 6$ ; H IF HCR 
6675 O44644 bee7 37 000072 oo1210 CMP ee, , 2eSTMPS iI THIS | A 8 READ COMMAND 
£676 D446 1417 BEO 11 : ANCH 
6677 O446545 017737 134762 001126 MOV DRHER1, 2eSBODAT ;TES Bata 
6678 O04 022737 000200 001126 CMP BHCE,a&SBDDAT ;ONLY HEADER COMPARE BIT? 
6679 :SHOULD BE SET 
6680 O44670 901470 BEQ 7$ :BRANCH IF GOOD 
666i O44—672 013727 OOle4e O42264 Mov DBRHER1,D#REGADR’ ; REGISTER ADDRESS RHER1 


6711 


SII NNN 


TUTUTUNU Rb be bb 
Lume 0.000 NOU £ tur 


COMMON MOrMmoo 


6724 


un 
£ 


2999 99 
sateniae g 


oo 
4. £ 


oe ReKts, 


O8-NOV- 


012737 
104027 


000460 


017737 
022737 


104027 


oooeco 


013777 


pi grr 


18777 


012737 


CTRLR 


08:3 
000200 


134724 
100200 


000072 


134656 
000400 


00i64e2 
000400 


134620 
100400 


00400 
0 


1 
001642 


MACY L1 306108 


001124 


042264 
001ie4 


001210 


001126 
001126 


042264 
001124 


001126 
001126 


O0i1e4 


042264 


134552 


1 
134S24 
O4S1SE 


PNERATI 
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ON ROUTIN SEG C175 
MOV BHCE , J#SGDDAT 
ERROR 27 feo ony FERROR ON THE 
ER ONLY HCE SHOULD 
BR 7s 
MOV JRHER1 , I#SBODAT TEST DATA 
CMP sOCK!HCE, SeSBO0AT sONLY HEAD OER COMPARE BIT? 
CK is T BECAUSE ECC IS NOT READ 

BEG 7$ RANCH F GOOD 
MOV asRHER} ssi ;REGISTER ADDRESS RHER1 
MOV #DCK! nee -GOOD DATA 
ERROR 27 AFTER AN ERROR ON THE 

ONLY HCE SHOULD 
BR 7$ :B gen 
CMP 872, J8STMPS :1S THIS A READ COMMAND? 
BEQ ; BRA NCH pA READ 
MOV ORHER1,IeSBODAT ; TEST DATA 
cn BHCRC, ,M8SBDDAT ONLY CRC ERROR SHOULD BE THERE 
MOV Q¥RHERL QWREGADR ;REG. ADOR = RHERL 
MOV SHCRC, aRSGODAT DATA 
ERROR 27 AFTER A aso. RROR ONLY CRC 

; SHOULD BE 
BR 7$ ean Deore 
MOV QRHER1,a*8SBODAT : TEST DATA 
CMP sDCK!HCRC, a#SBDDAT: HRC AND err Bek SHOULD BE SET 

;D¢k IS SE CAUSE ECC IS NOT READ 
BEQ 7$ ANCH IF GOOD 
MOV #OCK!HCRC, 8SGDDAT. GOOD DATA 
MOV DSRHER], JRREGADR; FAILING REGISTER RHER1 
ERROR 27 ‘AFTER A CRC ERROR ON A READ 

:DCK AND HCRC SHOULD BE SET 

:OCK IS SET BECAUSE ECC IS NOT READ 
RTS RO ‘RETURN TO MAIN TEST 
;*#TH SUBROU TO LEAVE AT THE MIDDLE OF 
STATURITE HEADER AND BATA COMMAND 
:#IT Ss "5 T a TOR iy TRACK O, CYLINDER 0 
;#BUT COMES out SECTOR 
:#THE COMMAND O Sisk Root NS eRTSOLE 
; *BAl SET : 
MOV JsWRIFOR, IRHCS1 {WRITE HEADER AND DATA=b2 
MOV #710 aRHWC $10 WORDS 
MOV FROM, aRHBA ;BU ADORE SS WRF ROM 
MOV #10, IRHOST DE TRED RACK=0 SECTOR=10 
BIS eBat, IRHCS2 INC RENENT INHIBIT 
MOV SFHT22, ORROF {FORMAT 16 BIT WORDS 
CLR @RHC YLINDER=0 
MOV #1, 8MID SECTOR IS SET TO 1 SO THAT 


CZRIGBO,RPO4’S.& OSKLS CTRLR] 
O8-NOV-77 08:30 


CZRIGB. 


Pll 


B4E309 


Tau030 


ocoe00 


000001 
000001 
OS3S46 


002014 
000004 


13444 


Bb0001 


0426 14 
134420 
001126 


001124 
001676 
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134S14 
134466 


002014 
134416 
134488 
001126 


042264 


CRC GENERATION ROUTINE 
1; gna GET OUT AL at ttn 


E OF AN OP 
K ; eee OF io" 
MOV #DMD, IRHMR 199 Kf RahOSrTe 
BIS #GO, MRHCS1 6 TO Reet WITH 62 
JSR R1, 8SEARCH 
MID: .WORD O ; SECTOR 
RTS PC 


-SBTTL JAM CURRENT CYLINDER ROUTINE 


;*THIS SUBROUTINE WILL CHANGE THE cen ae he te REGISTER 


;*THIS IS DONE BY GIVING A SEEK COMMAND T 
sunt WILL FoR HE CURRENT CYLINDER with THE P Be etreo CYLINDER VALUE 


S 
:* R RO, J@MAKECY 
Re ~~ eee rRED VALUE OF CURRENT CYLINDER 


MAKECYL: 
MOV RO, #PCJISR ;PC OF JSReM 

SUB wPCISR i SAVE Ps OF JSR 

MOV tres NG READY TO FILL DESIRED CYLINDER 


Cor Be Ree a ogee REC Tor tRace IS NOT ILLEGAL 


ST 
MOV pa eg a grec 


MOV BOM gRHit aa agnostic Ic NODE 

BIS 0,3 RCet SEEK 

NOP ‘ALLOW TIME FOR SEEK 9 HANG U 

NOP ree TIME FOR SEEK HANG UP 

NOP ;ALLOW TIME FOR SEEK tS HANG UP 

NOP *ALLOW TIME FOR SEEK TO HANG UP 

JSR PC anne Sedat iG VE iN T 

MOV cc DOAT ;TES A 

CMP ap ttl DDAT : COMPARE CURRENT CYLINDER 

BEO i BRANCH IF GOOD 

MOV sSGDDAT ; GOOD VALUE OF RHCC 

MOY Met on {FAILING R GISTER ADDRESS 

ERROR 0 CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER 
= :REGISTER AFTFR A SEEK AND AN INIT 

RTS RO 


.SBTTL ECC GENERATION AND COMPARISON ROUTINE 


sere ie SUBROUTINE SERERATES AND TESTS ECC 


CZRIGBO, RPOY’S 
C2RIGB.PL1 


= OW YOU £ Wtur-O 


ODOOUOOwOMOMMMM 
TUTU bb b= 


fu 
tu 


O04S306 


045310 
O4E312 


045314 


Buese8 


Ens 


“& DSKLS 
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100000 
040000 
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ECC CENERATI 


GECCI: 


GECCe: 


TSECCG: 


Cc 


NCODE: 
NCOUNT: 
Poaa! : 
HARDER: 


NOV-77 


14 


8:S4 ok 175 
ON AND COMPARISON ROUTINE 


ECC 

THEN CURRENT BIT IS A ONE 
HEN CURRENT BIT IS A ZERO 

; ECC WORD TO BE GENERATED HERE 
3H - ORDER ECC WORD TO BE GENERATED HERE 


1 

R 

F 2177777 GENERATE AND TEST ECC FOR THIS BIT 
F =A gene Fest 


iI 

iI DO NOT GENERATE AND ECC FOR THIS BIT 
;N-CODE WO 

; TEMPORARY CODE 

:P ion REGISTER 

;HARD ERROR COUN cS cs 

;TRUE COUNT IS 4128 BUT AS COMPARES ARE 

;DONE ONE STAGE LATER SO 4129 


tite 
D2 


6850 
1 


O8-NOV-77 
045326 cOd0000 


045330 o00000 


045332 000000 
045334" 9000000 
045336 000000 
045340 000000 
O4Ss4%e 00000 
O4S344 

Ovese4 O1370e 
Bye390 S737 


>RIGBO,RPO4’S.6 DSKLS CTRLRI 
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177776 


137777 
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176 
ECC GENERATION AND COMPARISON ROUTINE 


DATENV: 


CODE: 


ECTEST: 


1$;: 


es: 


3$: 


0 ;DATA Fn aROTE TS FOR TYPE OUT 
:MAX F 4036 
TIRE Se ete 
a) i EAD ING Z OS ENVELOPE FOR TYPE OUT 
:THIS IS SHUT OFF WHEN POSITION COUNTER 
:IN EN ABLED- 
:MAX COUNT IS 38859 
; TEMPORARY HARD ERROR COUNT 
MOV JSGECC1,R1 ;ECC1 WORD 
MOV guGeCce Re :ECC2 WORD 
TST as—ECDATA :IS CURRENT BIT A 
BEQ 24 :BRANCH IF CURRENT DATA D=0 
;#IF CARRY IS NOT ZERO THEN D=1 
:#INVERT X32 TO GIVE RO 
MOV 
BIS RieBies2.R3 
COM R3 
MOV R3,RO 
BR 3$ 
;#IF CARRY IS ZERO THEN D=0 
>*#X32 BECOMES RO 
Mov R1,R3 
BIC atCPIE32,R3 
MOV R3,RO 
CLC 
ROR RO 
ROR RO 
TST R 
BEQ 10$ ;BRANCH IF RO=0 
;#INVERT Xe 
MOV 


R2,R3 
BIS atCPIE2,R3 
OM R 

MOV R3 gaP3 
ASR aaP 
;*#INVERT X11 


SEG D178 


ts 
wD 


oe 


WOODDODODODWWW 
be a be Be be be Be 
0ONOU LS Wle-O 


otter 3 


for 
tH 


6924 


a 88 


K14 


PKK K KOKOMO M OOOO 
ie ica taht EEE: 


O,RPOY’S“& DSKLS_CTRLRI = MACYI1 30/1046) O8-NOV-77 08:54 PAGE 
ll 08:30 ECC GENERATION AND COMPARISON Fodlt INE 
MOV R2,R3 
177737 BIS #fCPIE11,R3 
COM R 
045336 MOV R3, aeP12 
045336 ASR aePie 
;#INVERT X21 
MOV R1,R3 
173777 BIS afCPIE21,R3 
045340 MOV R3, aeP2e 
04534C ASR aaP2e 
;#INVERT X23 
MOV R1,R3 
176777 BIS #tCPIE23,R3 
COM R 
045342 MOV R3, aeP24 
045342 ASR aahoy 
;#NOW THAT RO FOR POSITION 1 
: P3 FOR POSITION 3 
i plz FOR POSITION i2 
# P22 FOR POSITION 22 
P24 FOR POSITION 24 
{FOREX NOWN THE ROTATE WILL BE DONE AND 
*THESE BITS JAMED IN 
Bueese i noe Ri 
pueeus hain 045334 BIS aseP3,RO 
byses Basope 038828 Bie ot eee Re 
eq peSons Bis RORe . 3 
S556 005: CLR RO 
0537 04534 BIS asP22,RO 
0537 045342 BIS aePe4' RO 
045570 042701 oo2400 BIC BPigzeiPIEDN, Ri 
045574 050001 BIS RQ RI 
045576 000404 BR 126 


;#THE PROGRAM COMES HERE IF RO=0 
:#S0 AFTER ROTATE RO GETS PUT INTO POSITION 1 
Base0e poeone im 6elhU 
Be 10 15) 7 400008 les BG R i pe. S 
isis 910837 BuENL2 ee A oe 
IF 217777 one Test HARDWARE 
:IF = 0 DO NOT TEST HARDWARE 


Lele) 
a Lae | 
DD 
Cel 
ff 


Se 
~-OW 


ae 


COrrrron 
OOOO0OWO 
a toul sun 

NOUS Wl: 


O,RPO4’S6 DSKLS 
Pll O08-NOV-77 


o4s6e4 001432 


O4S626 032777 


7 
4 
04S704 0047 
O¥S710 1040 


CTRLR 
08:3 


000400 
000100 


042220 


04S32e 


042226 


MACY11 392086) 


133304 
133274 


133766 


14 


OV-77 08:54 PAG 


CC GENERA 
BEQ 14S 

;*#CHECK HARDWARE 
BIT #SW8, ISWR 
BN 15$ 
BI #SW6, ISWR 
BEQ 15$ 
BR 14§ 

15S: MOV R1,-(SP) 
BIC Rt saodo (SP) 
CMP (SP)+, JRHECE 
BF to SAVE TI 
JSR Bc aSPUTREG 
ERROR 35 
BR 14$ 

13$: CMP DePOSITI, DRHECL 
BEQ 14$ 
-#TO SAVE TI 
JSR PC, J#PUTREG 
ERROR 35 

14S: 
RTS PC 


COTO AND COMPARISON ROUT INE 


;BRANCH IF HARDWARE NOT TO BE CHECKED 


51S SWITCH 8 SET 
iORANCH IF SWB IS SET 

iTS SWITCH & SET 

{BRANCH TF SHO 1S NOT SET 

IF SHITCH NOT SET AND 

iSWITCH © IS SET THEN 

+ OOOD PATTERN REGISTER 

GET ONLY N TERN BITS 

i COMPARE PATTERN REGISTER 

BRANCH IF GOOD 

;SAVE REGISTERS 

IBATTERN REGISTER IN 11 BITS IN ERROR 


; H 
i CORPARE O1S TION REGISTER 
; H IF 0D 


POSITION REGIST R_IN ERROR 


GIVES NUMBER OF CLOCK 
OM sme NG OF COMMAN 
HE CLOCKS IN THE R/W DATA FIELD ENVELOPE 


E 
s 
Is 
WRITE THERE ARE 10000 OCTAL CLOCKS 
READ THERE ARE 10040 OCTAL CLOCKS 
DE 


THE NUMBER OF CLOCKS 
THE LER ING ZEROS FIELD 
OCTAL 


0D OOF ET TON. GIVES NUMBER OF CLOCKS 
eh AFTER LEADING ZEROS WHICH IS FOR THE DATA 


COUNT IS 10040 OR 10041 CCTAL 


SEG 0160 


CORJGBO,RPOY“S“& OSKLS CTRLRI 
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iS 


“bai 


SREBhY 
Sales 


04S306 


04S322 
04S320 


045330 


7 o4S3ee 


04S730 
045332 


000406 


042220 


o0000e 
00000e 
O4S344 


BBBBBS 


MACY11 


002014 


04S322 
04S322 
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ECC GENERATION AND COMPARISON ROUTINE SEG 0161 


THIS SUBROU eh, 3 WILL CONTROL THE ECC GENERATION ROUTINE 

FOR ERROR CORRECTION PROC 
3% JSR, PC, J8ECORR 
3 xP ;EXPECTED POSITION REGISTER WHEN CORRECTION IS COMPLETE 
ERPOS: QO ;POSITION REG. WHEN CORRECTION IS COMPLETE 


Ecomm: poy SO. RaETER EME FE OF JR * * 


f . Feit ar Spanos Seniethed ep rte CORRECTION IS COMPLETE 


CLR asECbATA :ECC BATA 1S ZERO 


1$: TST asePOSITI fe ond ag > POSITION NON or 
BNE es S COMPLETE 


ea oe ere R-ESBE 5 NOT COMPLETE 


6$: NC §azc00e ENT CL Loek given F ombtere ZEROS 


SO od foie Nae 


CNP SSERPOS. DePOSITI; HAVE ENOUGH eck Re To -et ory TO DETECT ERROR 
itt Sfuap TMP, avrost Tie ve chats EN BF ven. OR HARD ERROR 
28 MORE CLOCKS BEEN GIVEN 

ad ier, aR! ; HECK RO we BIT IN RHMR 

BNE ° sae The ;BRANCH IS ZER SET 

ge 55° mes :2ER6 Defect Bir NOT HIGH 

1 BITS IN ECC 32 BIT REGISTER IS 0 

3S: BIS WCLK, ari ;SET CLOCK 

BIC aMCLk: aR] :CLEAR CLOCK 

Jer PC “oNtCTEST 190, TO GENERATE AND TEST ECC 

;#THIS EXTRA CLOCK IS TO BRING ECH HIGH 

:#AFTER THIS CLOCK POSITION REGISTER MAY BE 10040 OR 10041 OCTAL 
ane Bt? ene? SRI FEAR eC ocK 
4$: 


3 
tf 


ie 


ze 


SINISIAIO 
WOW 


sddcaadads 
Ba Ioue 


~“y 
[=] 


sesReeeeReERES 


7099 


SIN NNNNNNNNNNNANNNISY 
Ho Bs bb be ee ee 
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7 O08-NOV-77 08:3 CC GENERATION AND COMPARISON ROUTINE 
046102 000200 RTS RC 
;*#THIS SUBROUTINE GENERATES THE ECC FOR WHAT IS ON DISK AND INSERTS THEM 
:#ON LOCATIONS "DISK+1000" AND “DISK+1002" 
946104 FILLEC: 
134 beens? | NeaI0 gtR SF SRceceL iEtEAR GSccL 
Bet 30 ppep3? pyeaiS CLR ane CC ; CLEAR 
O46 134 127 051416 DISK,R1 : POINTER TO para FOR ECC GENERATION 
140 4 MOV 256. + Re i COUNT RFE NUMBER DATA WORDS 
046144 O01 000020 9S: MOV #16..R3 ‘COUNTER FOR R OF BITS PER WORD 
OW 180 e MOV (R1)4+,R4 ;DATA_IN RY 
1 10S: ROR RY 'GET ONE DATA BIT IN CARRY 
158 BCC 118 : H I baTA BIT IS ZERO 
1 6 7 177777 045306 nov #51, 2NECOATA 3ECC ATA 8 T 15 ONE 
18g 045306 148: CLR gaE conta :ECC Ta ett is A ZERO 
1 ? 045344 128: ISR , O*ECTEST :GO TO GE TE ECC 
C R :DECREMENT BIT ¢ NT 
4 NE 1 ; HIF 1 TS NOT DONE 
E R ;DECREMENT COUNT 
1 BNE : BRANCH Foe WOROS NOT DONE 
6206 013737 04531 052416 MOV SGECCL, 2401 +2 B. #2); N Eccl ON DISK 
14% 013737 S312 oSe420 MOV WGECC2’ aeDISK+<257.%2>; INSERT ECCe ON DISK 
36 000207 RTS PC 
.SBTTL RH BASE ADDRESS CHANGE ROUTINE 
; He THIS ROUTINE W ALLOW THE CHANGE OF THE SASE 
1 a ADDRESS FROR reais 5 ANY TYPED VALUE 
BASECH: 
18308 001640 HOV @BRHCS1,-(SP) ;GET READY TO TYPE OLD BASE 
4 60473 055172 JSR PC, a8STKINT ; INITIALIZE THE TTY KEYBOARD 
4149 Ol] Vv SRHDB, RO ;GET TARTING ADDRESS OF REGISTERS 
4 1 MOV age. Ri : R OF REGISTER 
4 1 2 ooo004 MOV eAOTIMO, ae4 :SET UP TO CHECK NEW ADORESS 
Bae 3e 187 1640 CMP aSP, aSRHCS1 ; NEW _C R ue 
ean Ue Be sae A Re 
46450 ser ces 2s: AD oe CRASS :AND PLUG IN 


NOM EOM-OSBIERE eS 


DOKL CTRLRI 
-NOV-77 08:30 


15 


8-NOV-77 08:S4 PAGE 181 


SINNED 


one cae a ee oe aL ee 
+ Oe VOPUN £ WOODED IO LEOFOE- OubOs BOE Cone CoeDOD 


H BASE ADDRESS CHANGE ROUTINE SEG C1E2 
005301 DEC Ri ;DONE ALL OF THEM YET” 
0013 BNE 25 :NOT YET, SO DO MORE 
0 37g 001626 MOV QeRPVEC,-(SP)  ;GET READY TO TYPE OLD VECTOR ADDRESS 
1044 TYPOC 
W1¢ RDOCT 
1 001626~ MOV (SP)+,a8RPVEC  ;SETUP VECTOR ADDRESS 
i3 001640 MOV aeRHC$1,-<SP) 
h 402 TYPOC 
13746 001626 MOV DeRPVEC, - (SP) 
10440e TYPOC 
012746 000200 MOV #RA, - (SP) 
104402 TYPOC 
000137 o042e40 MP aBEGIN ;0K, NOW START OVER WITH NEW ADDRESS 
047302 022626 MP (SP)+, (SP)+ ;RESTORE THE STACK 
047304 900137 o462e40 IMP aSBASECH !AND DO IT AGAIN. 
;#THIS IS A LITTLE ROUT INE THAT TESTS NED BIT 11 IN RHCS2 
:#THIS LOOP HERE FOR EVE 
:#T0 USE ONLY IF RIVES PRESENT LOOKING AT NED DOES NOT AGREE 
‘WITH WHAT IS REALY RE 
7310 g90g09 RUNIT: O ;UNIT UNDER MANUAL TEST 
7312 904737 042614 ERSTART: JSR PC, a8CLDISK :SET GENERAL REG. 
7316 013712 O47310 MOV astRUNIT, dR :SELECT UNI 
047322 005714 1S: TST aRY : TEST RHER1 
0473e4 022712 010000 BIT #NED, aR2 !TEST NED 
047330 O0!40: BEQ 2s ‘BRANCH IF GOOD 
047332 000773 BR 1$ j NED NOT SET 
647324 00772 23: BR 1$ !NED SET 
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: RON SB Nove? oer 30 7 BA BASE ABBArSS CHANGE ROUTI 
1 
i SBTTL OISK SIMULATION 
1 Ee 8 WRITE. E ‘8 "Bx? pND FILL THE FOLLOWING 
Feit TH 3 BE ON DISK 


sukEva= HTH Hy 18 "EE gh BiB 


rene WORds.'8 u's 5 nF ha GN DISK 
NE COMMAND THEN IS. JSR P 


OMWHD 
." 
32 
ted 
:4 
:*#IN A WRITE DATA C FILL THE FOLLOWING 
:#CYLSWITH EYCINDER 10 BE FOUND ON DISK 
j¥SECOTR= WITH SECTO TRACK TO BE FOUND ON DISK 
;eKEYI= WITH kee I OUND ON OISK 
; #KEYe= WITH KEY FOUND ON DISK 


5 #X 
0 ogee WITH Fitts F pera WORDS TO BE WRITTEN 
SR PC, COMH 


t+ 
UENO POE Wh ODO TOUE OTE ED 


SINE EINE SENSES NSIS SSIS NON SI 


ieIN A 


FIN A READ aK BND DATA. COMMAND A THE FOLLOWING 
= 
3 RG TRS WITH eFGR Ye re ACK TO BE FOUND ON DISK 
teKEYl= WITH KEY] OUND ON DISK 


ib Sade wrt 1 full of SEOuNE ON 18°BE FOUND ON DISK 


x=0 RUST BE 
i the COMMAND THEN IS JSR PC,COMHD 


GER LSE BD see Loe Oa 
xo 


IN A READ ear’ COMMAND FILL THE FOLLOWING 
es Corks ust fet etge BND TRA TRACK RTD ee POUND ON DISK 


t ¥K evis utTH KEYe BE FOUND ON 


o1sk 
7208 OF WORDS TO BE FOUND ON DISK 
5525 Fea E Er, nee 
726% COMRANG IS JSR PC, COMHD 

evs 


PURO bb bs = de be bo Be bs Be 8 he he os be Be be Bo be be be he oe eo 


SINININ NNNNNN NNN NIN SSS 


tw 
tr) 
= 


rurufrurururururufurururu: 
TOTP b&b 0b a 
—-OWONOW £Wl-O 


B93 IININI INI NI~9 9 
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ll O8-NOV-77 08:39 DISK SIMULATION SEG Sigs 


; *WRITE DATA COMMAND 
:#OR READ COMMAND I.£ DATA ONLY OR HEADER AND DATA 


;#*#THIS SUBROUTINE IS THE FIRST IN A SERIES OCF NESTED SUBROUTINES 
ee GO sane DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 


;#*#]T THEN CALL THREE. one SUBROUTINES, WHICH IN TURN CALL OTHER 


: ##SUBROUTINES. 
ee SEARCH 
tee ROHEAD 
ee WRDATA 
ee REDATA 
Baraae BISeSS ge014 BUDS: HOG” 6©—« Psp) aePCISR —«; SAVE PC OF JSR + 4 
047344 Teas a> 006004 002014 *  §uB #4, abPerse :SAVE PC OF JSR 
7366 012777 oOO00001 13226 MOV DMD JRHMR IAGNOSTIC MODE 
7374 052777 OO00004 132256 BIS aMINX, JRHMR i SET IAGNOSTIC INDEX 
7402 042777 O00004 132250 BIC SMINX. aRHMR :CLEAR DIAGNOSTIC INDEX 
O47410 052777 000001 132e22 BIS #GO, ARHCS1 i ISSUE ’GO’ BIT & STALL 'TILL ‘RUN’ 
3 (F TION c 1s TSSUED | BY THE TEST) 
O4741& 012737 000113 047336 RUNWAT: MOV #7S.,Q8RUNCTR ;LOAD STALL sare = APPROX. 4SOUS 
FOR 11/56 CPU WITH CORE OMEMORY 
7424 005337 047336 1S: DEC QsRUNCTR :COUNT DOWN ONE 
047430 001375 BNE 13 :CONTINUE UNTIL = O 
047432 013746 047502 MOV SECOTR, -(SP) ;GET DESIRED SECTOR/ TRACK 
047436 O4e7 16 aap BIC #177740, (SP) ; MAKE ONLY SECTOR 
047442 01263 7452 MOV (SP)+, ‘'aeTRK  ;SAVE SECTOR 
7446 004137 OS3546 ISR R1, aeSEARCH :ISSUE SECTOR CLOCKS <---------------- } 
745, TRK: .WORD O 
BS 4 rere 000240 MOV #+NOP,R1 OING TO HOVE NOPS 
7460 19137 047512 MOV R1,aeSSYN OP INTO 
O47464 010137 047514 MOV Rl; J8HEDGAP NOP INTO REDGAP 
047470 610137 O4751E MOY Rl’ J#HEDSYN !NOP INTO HEDSYN 
047474 004137 O47b22 ISR R1 | deROHEAD 
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GB.P: O8-NOV-77 08:30 ISK SIMUIATION SEG D1e6 
788 
¢ 
sees ;*#DUMMY ERROR CALL LOCATIONS FOR THE READ HEADER OPERATION 
7266 047560 o00000 CYL: WORD oO ;CYLINDER ADDRESS 
7267 047502 o00000 SECOTR: :WORD © :SECTOR/TRACK ADDRESS 
7268 O47504 000000 KEY I: WORD 0 :KEYL WORD 
72639 047506 9000000 KEY2: WORD OQ *KEYe WORD 
7e70 947510 900000 X: ‘WORD O :X=1 WRITE COMMAND 
cert :X=0 READ COMMAND 
7273 O475:2 oDD240 SSYN: NOP ;IF_ “ERROR 2 ENSERTED BY ROHEAD 
7274 : SUBROUTINE THEN THE FIRST SYNC. 
727 ‘TS NOT DETECTED. NO BAD DATA 
727 :15 GIVEN BECAUSE SYNC=144000 
?e77 :CANNOT BE READ. WORD NO 
7e78 ‘TS "1" BECAUSE THIS IS THE FIRST 
2273 :WORD TESTED 
¢ 
7281 O47514 ooDe4o HEOGAP: NOP ;IF “ERROR 3” INSERTED B 
7282 :RDHEAD SUBROUTINE THEN THE 
7283 tH R 0°S WERE NOT 
7284 !WRITTEN RIGHT 
7285 :IF “WORD NO” CONTAINS 
7286 33(8), THEN IT IS THE THIRO 
7287 :WORD'’ OF AS WORD HEADE 
7288 :GAP THAT IS WRONG 
7289 :"BAD DATA” CONTAINS WHAT IS 
5230 ‘GOING ON THE DISK 
7292 O4751— oCDea4o HEDSYN: NOP ;IF “ERROR 3” INSERTED BY RDHEAD 
7292 i SUBROUTINE THEN THE HEADER SYNC. 
7294 ‘GENERATED BY : IS WRONG 
7295 :OR THE LAS gyT 
72% :OF THE HEADER GAP 0°S IS WRONG 
7297 i IN EITHER CASE WORD NO=6 
7298 :RIGHT BYTE IS HEADER 
7299 :LEFT BYTE IS SYNC 
7300 :"BAD DATA” HAS WHAT IS GOING 
3301 :ON DISK 
5306 047520 005737 o02006 TST QeERFLGS ;ARE ANY ERRORS DETECTED 
7304 047524 901017 BNE OUT TE YES, EXIT ------------------- > 
7305 Ou75e6 005737 O47510 TST :1S IT A Data WRITE ? 
7206 7532 001410 BEG DAREAD :NO...THEN DO A DATA READ 
7307 047534 005737 047614 TST aBNOSYNC :I1S THIS FORCED HEADER ERROR COMMAND 
7308 :IF YES NOSYNC=-1 THEN WRITE OR READ 
7309 :IS SHUT OFF SO BRANCH OUT 
7310 :IF NOSYNC=0 THEN CONTINUE 
oak 047540 001011 BNE OUT ;EXIT IF SET --------------------- > 
3313 O47542 004137 OS10bE ISR R1, JSWROATA ;WRITE DATA <--------------------- > 
7315 oO47546 oOD0000 NOWORD: .WORD 0 :NO OF WORDS TO BE WRITTEN 
2zis o47550 900000 Y: [WORD «=O ; 


O47EE2 9 OO0404 BF Our {EXIT ---------------------------- 


On 
tut 
D 


WIWWWUIW bite 


-Is-a-a~a 


RRMBSS BE 


C 


mid 


O4S“6 OSKLS 


-D 
-0 


o¥7ss4 004137 cs4#0ee 


o47S60 000000 
O47S6e 000000 


047600 000207 


CTRLR1 
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MACY11 3 


O0( 1046 
DISK S 


DAREAD: JSR 


DAWORD: .WORD 
. WORD 


OUT: 
RTS 


F1S 
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IMULATION 


posuere 
8) 
PC 


;REA 
;NO 


0 DATA 


é 


mame ew em wwe eee em eww eer ee, 


OF WORDS TO BE READ 


;EXIT ROUTINE 


SEG C1E7 


Oo 


tity 
DD 


I LILI pe 
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GB.P 11 O8-N ION SEG Clee 
24 
es ; #THE woes SE SECTOR ode DEVIDED. AS FOLLOWS 
#19 Wd WORD 14400 
387  # THESE MAKE 39° BvES FOR be eT OR GAP AND ONE SYNC. BYTE 
323 
30 O47602 014400 RSYNC: 14400 
31 047604 900000 RCYL: 0 
32 047606 900000 RSETR: O 
33 047610 900000 RKEY1: OQ 
34 O47612 900000 RKEY2: 9 
36 
37 ;*5 WORDS OF O ONE WORD 144000 
7328 !aTHESE MAKE 11 BYTES FOR HEADER GAP AND ONE SYNC. BYTE 
39 :#THESE ARE DCL GENERATED 


340 
7343 :#THERE ARE 256 WORDS OF DAT 

3345 :#THERE ARE 2 WORDS FOR ECC GENERATED BY DCL 
7345 :#15 WORDS OF O FOR DATA GAP AND TOLERANCE SAP 
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CZRIGB.PLL O8-NOV-77 08:30 DISK SIMULATION SEG C1E9 
7348 
7349 
27350 
7382 ;*#READ DISK HEADER 
7354 
7355 
7356 
7357 
7358 047614 900000 NOSYNC: O s FORCED HEADER ERROR = 
7360 O47616 000000 TY: 0 ;ERROR TYPE NO. 
7361 o47620 000000 ERWORD: O ;ERROR WORD NO. 
7363 
*3es 
7366 047622 012137 047604 RDHEAD: MOV (R1)+, @RCYL 1 $708 CYLINDER ADDRESS 
7367 047626 012137 04760 MOV (R1)+, @WRSETR ;STORE SECTOR AND TRACK ADDRESS 
7368 047 Ol 137 04761 MOV (R1}+, g@SRKEVI jSTORE KEY 
7369 0476 12137 04761 MOV (R1)+; @®RKEY STOR 
7370 047642 012137 oO50412 MOV CRI) + sCOMPA ; ECON — OR_NOT 
7371 047650 013700 001660 MOV asRHMR, RO Ro CONT BINS. MAINTANENCE REG. 
3378 047654 912705 9 go0e mov He, RS 3RS IS A COUNTER FOR WORDS 
7374 047664 +16 800010 BIS sMsTCK aRO Set ‘SECTS FOR FIRST WORD 
rire fares aeri BbootE Re eerad om kee 
¢ 
5358 Bu> 00 Boo4d4 Be 2g Sesh. bides NG $109 FOR FIRST TIME 
7378 047702 012710 000013 1s MOV aMSTCK!MCLK! DMD, ipo. jSET SE QCK, DIAG. MODE, RESET INDEX 
73729 047706 O4e710 O0001e BIC aMSTCK!MCLK, JRO’ ; oReae seETOR ct bck 
7380 047712 Ole702 900007 2s MOV 87 BE ;Re_ IS A See tea FOR BYTES 
7381 047716 052710 900002 3$ BIS aMtLK, aRO ;SET CLOCK 
7382 047722 O4e7i0 00000 BIC wMCLK; @RO ; RESET CLOCK 
7383 047726 005302 DEC FE iBYT E COUNTER 
7384 047730 001372 BNE 3$ :BRANCH IF BYTE NOT COMPLETE 
7385 047736 905305 EC R 5 WORD COUNTER 
73 77 1 NE 1 ;BRANCH IF WORD NOT COMPLETE 
7387 047738 012702 gog0ee noe HOV #18. Re ;NO OF WORDS OF ZEROS 
738 Boe $33 50414 JSR PC, aeREAD G0 TO READ 
7390 947 005302 DEC mS ; COUNT 
7391 o47754 001378 BNE 42 
739 047 13737 047602 950410 MOV JBRSYNC,DBWORD ;SYNC. WORD 
peu 047770 S3e710 O01000 Bit —sabtsv, SRO” ;SYNC. BYTE DETECT 
¢ 
7395 47778 Boole NE = ‘Bra RANCH IF SYNC befecreo 
7396 047776 012737 000001 047620 MOV D#ERWORD'’ ERRO 
7397 OSO004 013737 O47602 001124 MOV aaksync. a#$GO0AT igYN WNC WORD. 
23 950012 o12737 104002 047512 MOV 4002) aeSSYN : ANSER ERT “ERROR 2” IN SSYN 
7393 S71 BR 1 H_ OUT 
7400 O500e2 013737 047604 osO410 S$: MOV gaRCYL, QeWORD SETUP CYLINDER 
7401 050030 004737 OS0414 JSR PC #READ 
740e C50034 0137 7 O47606 OS0410 MOw #RSETR, JBWORD ISETUP SECTOR’ TRACK 
7402 O&5042 4727 O50414 JSR C, a8READ :REAG 
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eSRy SB Pil O8-NOV-77 08:3 DISK 
7404 OS0046 013737 47610 OS0410 MOV JORKEY1, aSWORD ;SETUP KEY! 
740S O500S4 004737 0414 JSR SaRE D ;REA 
7406 013737 O4%7612 OSO41O MOV DBRKEYS, aBWORD ;SETUP KEYe2 
7407 O414 ISR PC S¥READ ety 
7408 13737 1400 os0410 MOV gets RC, J#WORD SETUP CRC 
7409 0501 004737 0414 JSR C gaREAD 
7410 050104 005737 O0e0e6 TST astESOTE 1s THIS A ORIVE TIMING ERROR 
7411 050110 001135 BNE 13$ : BRANCH OUT 
74l2e OSO011e 005737 oso0412 TST asCOMPA :I1S THIS A READ ‘OR WRITE COMMAND 
7413 050116 00147e BEG ll 
7414 050120 012705 051402 MOV #HEGAP, RS ;POINTER FOR HEADER GAP 
7415 050124 Ole70e o0000S MOV aS, Re !NO OF WORDS wor ZEROS 
7416 050130 Ole737 OOO00R o47620 65: MOV ag, QsERWORD :ERROR WORD NO SET 
7417 050136 004737 050646 JSR SSRI TE :FOR HEADER G CaP 
7418 050142 005737 OS0644 TST atts : TEST WRITTEN WORD 
7419 O50146 001413 BEQ 3S s BREACH IF 6000 THAT IS O 
7420 050150 18023¢ 047620 SUB R2, JSERWORD ORD NO IN ERRO 
7421 O50154 S037 001124 CLR ae$GDDAT ;G00 WORD SHOULD BE C 
7422 050160 013737 OS0644 001126 MOV Seok. sasoat ;BAD DAT 
74e3 050166 O16737 104003 047514 MOV #14003, D¥HEDGAP “ERROR 3. GOES IN HEDGAP 
7424 0174 000503 aR 1 BRANCH bu 
7425 050176 013725 os0644 7$: MOV SBWWORD,(RS)+  ;SAVE HEADER GAP 
7426 050202 9053302 DEC Re 
7427 050204 001351 BNE 
7428 004737 oS0646 ISR PC QeWRITE ;WRITE HEADER (DATA) GAP SYNC 
7429 OS02ele 023737 O47602e o50644 CMP DBRSYNC , IBWWORD 
7430 050220 001426 BEG 
7431 O50222 9005737 047614 TST JaNOSYNC ;IS THIS FORCED HE ER ERROR COMMAND 
7432 :IF YES NOSYNC=-1 THEN WRITE OR READ 
7433 :IS SHUT OFF SO mete out 
7434 j1F NO NOSYNC=0 THEN CONTINUE 
743S OS0226 001406 BEG 14S ;BRANCH IF TRUE ERROR 
7436 050230 005737 oOS0644 TST a #WWORD 
7437 050234 001420 BEG 10$ BRANCH IF GOOD 
7438 050236 005037 001124 CLR aa$GDOAT :IT SHOULD BE ZERO 
7439 OS024e B00403 BR :BRANCH TO TYPE ERROR 
7440 gsce4s 01373 pu7eue 001124 14$: MOV seRsync, #$GDDAT’ ;GOOD DAT 
744) O2eS2 013737 06 O01le6 158: MOV a suid0 RO; #$80087 +BAD DAT an 
7442 050260 012737 000006 047620 MOV WORD 
7443 O50066 012737 104003 O47516 MOV sidyo03, SBHEDSYN 
oaae pe0sse eee oSO0644 10$ Bay SSLIWORD, (RS)+ BRE DATA SYNC. 
a $ 
7446 050302 paaase BR 
744? *READ COMMAND STBRT FROM HERE 
7448 O50 012702 ooos iis: MOV RE 
7449 050310 005037 050410 12$ CLR uo Bho 
7450 950314 904737 050414 ISR READ ;READ HEADER G 
7451 O50 302 DEC RS :1S S HEADER gap ZEROS COMPLETE 
7452 05032 O01378 BNE 1 . : IF NOT BRANCH 
7453 01373 7602 oOS0410 MOV SSRSYNC,9BWORD SYNC WORD 
7454 004737 OSO414 ISR PC AD !READ HEADER (DATA) SYNC) 
7455 03 005737 047614 TST aBNOSYNC 
7456 050342 001404 BEO 16$ ; IF NOT ERROR COMMAND BRANCH 
7457 950344 93710 001000 BIT sOTSY,aRO :SYNC. DETECTED 
745e 050350 OD1HIE BEO 13$ :IF ZERO BRANCH OUT 
74ES OF03S2 900403 BR 17$ :IF NOT ZERO BRANCH TO ERROR 
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16S: 


047620 178: 
001124 
047516 
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;SYNC. DETECTED? 
:BRANCH IF YES 
#6, JBERWORD ‘ERROR WORD NO. 
DBRSYNC, JBSGDDAT:SYNC WORD 
#104002; J#HEDSYN 


Rl 


eDTSY, @RO 


SEG 0191 
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C2RIGB.P11 O8-NOV-77 08:30 DISK SIMULATION SEG O1 
7469 
7470 
747] 
7472 
747 
7474 
7475 ;*READ ONE WORD IN “WORD" 
7475 
2477 
7478 
7479 
7480 o50410 oo0000 WORD: 0 
7481 oOS04l2 o00000 COMPA: O 
7482 
7483 
7484 ‘ 
748S 
7486 OS0414 READ: 
Pigg Benue Q1E70G ponnee ROY Bap, Sho EOF ERY Ele 
a Ose B6a87 Beate ROR a 4WORD iGheckING IE THERE IS A ONE 
aL GBs Grerie ganees is: BBP BR BBO TEE Lduad OTR HR one 
eae . . 
7493 os0444 952719 000012 BIS aMSTCK!MCLK, dRO ;SET CLOCK,DATA IF ANY, SECTOR 
page bepyss poia;; Ott Ln + Aeeie s Ag, gutS BIT TO GENERATE Ae TEST ECC 
7496 Beouee rt) 000020 BIT #MRD, JRO 1S DATA BIT A ONE 
7497 OS50462 001404 BEQ S$ ;BRANCH IF DATA BIT IS O 
7438 De04e4 O167 32 177777 045306 mov #-1,8ECDATA sECC ara BIT IS A ONE 
7500 74 37 5306 S$: CLR aSECDATA *ECC DATA BIT IS AD 
7501 1 6S: MOV 80MO -(SP)  iKEEP Y DIAG. MODE 
7502 19 0410 ROR gaWORD i CH CkT 1 THERE IS A ONE 
5epa 1 12716 000021 MOV MRD! OMD te) on P DATA AND DIAG. MODE 
7505 1 18 2s: MOV (SP)+. RO ;PUT_IN bata RESET CLOCK, SECTOR 
pee 950520 ThA 045314 ror aeTsetcc + afcS 9 Be GENERATED FOR THIS BIT 
rete fees Gipsy Russet Fe OEeay EST ec RaAE* a VR BECOaT# EELOME 
7510 050536 19 o00002 3S: BIS aMcLK, dRO SET CLOCK 
veil ue a7 045314 rst geTseCce 18 THIS BIT TO GENERATE ECC 
7513 50 316 oo00020 BIT 8MRD, ARO :IS DATA BIT A ONE 
7514 54 001404 BEQ 7$ :BRANCH IF DATA BIT IS = 0 
3515 Q50556 737 177777 O4S306 MOV #-1,08ECDATA sECC ATA BIT IS A ONE 
7512 7 045306 7$: CLR aSECDATA ‘ECC DATA BIT IS = 0 
1g 1 00000 8s: MOV 80M -(SP) i KEEP DIAG; MODE 
751 O03 05041 ROR gaWORD :CH CKING If THERE IS A ONE 
rest O12 16 000021 MOV #MRD! DMD, (SP) :KEEP DIAG. MODE AND DATA 
7522 10 Ole61 4S: MOV (SP)+, aRO :SET DATA, DIAG. MODE, CLEAR CLOCK 
7522 050612 005737 045214 TST asTSEccc :IS THIS BIT TO GENERATE ECC 
7524 O5061€ 001404 BEG :BRANCH IF NO 


wo 
fu 
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7525 050620 005237 O04S3c6 INC aDATENV ; NUMBER OF CLOCKS GIVEN FOR DATA ENVELOPE 

526 004737 045344 JSR PC, JWECTEST :GO0_TO GENERA TE AND TEST ECC 

S27 0506 005302 Qs: DEC Re ‘BYTE COUNTE ER 

7528 06 1341 BNE 3 !BRANCH IF_ONE BYTE NOT COMPLETE 

2529 050634 005305 DEC RS :WORD COUNTER 

7530 950636 90130 BNE 1 {BRANCH IF ONE WORD NOT COMPLETE 

75 os5064e 00020 RTS PC 
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a 
753 
7538 ;#WRITE ONE WORD WHICH COMES BACK IN “WWORD” 
7540 
7541 
7542 
7543 
7544 
ce4s oS0644 000000 WWORD: O 
5248 
7548 
7549 
7550 oS0646 WRITE: 
7551 O50656 012705 000002 MOV 82,R5 ;WORD COUNTER 
robe 012710 000001 MOV #1, aRO i ge uBiAs. MODE ess aos 
5eee SESE ee =m HOV SnSTEK!MCLK!DMD, i SEF eee R. AND CLOCK 
7o56 BBisde 000040 I #MWR, JRO iC CK WR i: qT IN MAINT. REG. 
7558 1 398 177777 045306 MOV #-1,a8ECDATA ; cc A BIT IS A ONE 
7559 1 SEC :SET CARRY 
7560 03 ROR R3 :MOVE 1 FORWARD 
gebe 37 045306 2s: CLR aBECDATA Eff oh Tad IT 1S =0 
7564 bones ER R3 
7eee boss? Baege4 aes ney suvseéce ee ot ae ECC 
73e8 05237 5326 Pre ae aTENy CLOCKS GIVEN FOR DATA ENVELOPE 
7568 32 344 oa JSR WECTEST : : NERAT E AND TEST ECC 
es 18 E BI mn, 526 HECK | RIT NR IN RHMR 
23 78 177777 O4S306 MOV 8-1, 28ECDATA are BIT IS A ONE 
7 7 : on R3 MOVE 1 FOR WWORD 
7377 1908 B83 Z 045306 cs CLR #ECDATA “ECC DATA BIT IS ZERO 
AO IR PO a, us, Brac iat Ba, moro 
1 ot 15 573 14 ‘ ret aeTSECcG HTS stats Bt iT. TO GENERATE ECC 
see: elise Bieoes wanet Ones EEE Shcsafe* YE BEO*T® EVEL 
7586 p21 836 BOT sae - pee og a ee ERio® BRANCH 
ree, SIRS BSS mf Pt ee eo a 
7588 1 BNE 1 NOT WORD END BRANCH 
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R3, J#WWORD 
PC 


;STORE THE WORD 


SEG S195 
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7595 
75% 
eet 
7599 :#WRITE DATA - PUT DATA INTO “DISK” AREA FROM “WWORD” 
7600 :#ONE WORD AT A TIME 
7601 
7602 
7603 
7604 
7605 
7696 
7607 > 4 
? 051060 oo0000 COUNTD: O 
7609 051062 000400 FORMAT: 256. 
7610 051064 oo0000 ZWORDS: 6 
7611 051066 WROATA: 
76le OS51066 011137 051060 MOV (R1),@8COUNTD ;STORE NO. OF WORDS TO BE WRITTEN 
7613 051072 O1210e MOV (R1)4,Re ;SAME IN Re 
2614 051074 012137 osm4ie MOV (R1)+;a8COMPA :COMPARE OR NOT 
761 
oele OSii1l2@ 012701 oo00016 MOV 1 ;NO. OF TOLERANCE GAP WORDS 
7618 OS1116 012703 OS2424 MOV sTOLGaP,R3 :START OF TOLERANCE GAP TABLE 
7619 OSllee 012723 177777 1S: MOV 8-1, (R35+ :MAKE IT 177777 
7620 051126 005301 DEC R1 :IS 14 COMPLETED 
7621 051130 001374 BNE 1§ : IF NO BRANCH 
762e 051132 013700 1660 MOV QeRHMR, RO :RO CONTAINS MAINTANENCE REG. 
7623 051138 013746 1062 MOV a8F ORMAT, - (SP) 
7624 1142 163716 1060 SUB @SCOUNTD; (SP) 
7625 051146 Oil 051064 MOV (SP), a8ZWORDS ;NO. OF ZERO WORDS TO BE WRITTEN 
7eee OS11 0 MOV (SP)+.R4 
76e7 051154 002024 TST asTsetc ;IS THIS AN ECC TEST ” 
7628 051160 S01403 BEQ 7$ i BRANCH IF NO 
7 Yel ibe 0127 177777 045314 MOV #-1, a8TSECCG : ITs ARE TO GENERATE ECC 
7630 0511 Ote O3 1416 7$: MOV #0 R ; SS THE ™ ISK" AREA 
7631 1174 ? 46 2s: JSR PC, JSWRITE :WRITE INTO ™ Dp” 
763e 051200 013723 O50644 MOV DBWWORD, (R3)+ ist ON SIMULATED DISK 
7633 051204 398 DEC Re :COUNT DOWN 
7634 1206 00137 B 2g :CONTINUE IF ALL WORDS NOT WRITTEN 
7635 051210 005704 TST RY :ANY ZEROS TO BE WRITTEN ” 
Osigie 901406 BEG 4g ‘BRANCH IF NONE TO BE WRITTEN 
763 1214 737 oS0646 3S: ISR PC, ASWRITE :WRITE ZEROS INTO “WWORD” 
7638 081260 013723 050644 MOV QeWWORD,(R3)+ STORE INTO “DISK™ 
7639 051 Boe554 DEC RY 
7640 051226 001372 BNE 3$ 
764 051230 005037 045314 4S: CLR aaTSECCG ;NO MORE ECC TO BE GENERATED 
764e 051234 012701 o00002 MOV 2, Ri 
7643 0512840 0047 OSOE4E S$: ISR PC’ WRITE ;WRITE ECC1 AND ECC2 ON SIMULATED DISK 
7644 1244 013723 0644 MOY QsUWORD,(R3)+  ;STORE ON WEECL AND WEECe 
7645 051 005301 DEC Ri 
76 Ooi 001372 BNE 34 
764 1254 004737 D646 ISR PC, WRITE ;WRITE DATA GAP INTO "WWORD™ 
7648 051260 013763 0644 MOV @sWWORD,(R3)+  :STORE INTO “OISK™ 
7643 051264 012701 o00016 MOV #14. Rl 
7650 051270 004727 OS0646 &$: IR PC, JBWRITE :WRITE TOLERANCE GAP ZEROS 
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7651 OS1274 013723 oSoB44 MOV @#WWORD,(R3)*  ;STORE INTO “DISK” 
r652 951300 005301 DEC RI 

ce53 051302 001378 BNE 6$ 

7655 


951316 co020! RTS Ri 
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) 
IMULATION 


j SURI TE HEADER AND DATA 


SECGAP: . 


DTAGAP: 
TOLGAP: 


{THIS IS_ THE SIMULATED 
!#ONLY ONE SECTOR OF SPA 


DISK 
CE IS ALLOWED 


ve) 


READER © 
R 


x 
= 
ee — Ul Lr 
o 


<= 


2 eroR GAP 38 BYTES OF 0 
R GAR i ByYT OF 


O ONE SYNC BYTE 


CYL, SECTOR. TRACK, KEY1, 


iC Cc 
; HEADER ae 10 BYTES OF U 


BYTE OF 0 SNE SYNC. 


EADER 
; USED In’ Be Test, As SILO TABLE 


A GAP 2 BYTES OF 0 
TOLERANCE GAP 28 BYTES OF 0 


KEY2 


BYTE 


SEG 9198 
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7691 “ 

7692 

7693 

7694 

7695 ;#WRITE HEADER AND DATA 

7696 

7697 

es 

3200 ;#*THIS SUBROUTINE IS THE FIRST IN A SERIES OF NESTED SUBROUTINES 

770 sett ISSUES DIAGNOSTIC MODE, AN EXTRA DIAGNOSTIC INDEX, AND THE 

7 2 Pa 2’ , 

7704 

7705 ;##IT THEN CALL THREE OTHER SUBROUTINES, WHICH IN TURN CALL OTHER 

2758 :##SUBROUTINES. THESE ARE: 

7708 ee SEARCH 

77093 , ee WRHEAD 

7710 5 ee WRDATA 

7?1ll 

rile 

7713 

7714 

7715 

rats 

7718 OS2460 o00000 RNCTRI: .WORD 90 ;"RUN’ LINE STALL COUNTER 

7719 OSe4%6e 011637 oc2014 COMWHO: MOY (SP), aePCISR :SAVE PC OF JSR + 4 

2720 OSe466 162737 000994 002014 SUB #4, JPCISR :SAVE PC OF JSR 

7722 052510 012777 1 ie714e Mov ;SET DIAGNOSTIC MODE 

7723 052516 062777 reefatage 127134 BIS SMINK, IRHMR :SET DIAGNOSTIC INDEX 

7724 4 042777 QOO00004 127126 BIC @MINX: JRHMR :CLEAR IT 

ores O0S2532 052777 900001 127100 BIS #GO, JRHCS1 SET °GO’ BIT & STALL ’TILL ‘RUN’ 

(¢ 

7727 OS2540 012727 000113 OS2460 RNWATL: MOV 87S5.,3¥RNCTR1  ;LOAD STALL COUNTER = APPROX. 4SOuUS 

7728 FOR 11/56 CPU WITH CORE MEMORY 

7729 OS2S546 005337 oSe460 13: DEC D#RNCTRI COUNT DOWN 1 TIME 

7730 o526S2 001375 BNE 1$ ‘CONTINUE UNTIL O 

7732 OS2554 013746 oS2640 MOV OauSECTR =(SP) ;GET DESIRED SECTOR/TRACK 

7733 C 042716 177740 BIC #177740, (SP) :MAKE ONLY SECTOR 

7734 052554 012637 052574 MOV (5P)+, Sw TRK :SAVE SECTOR 

7736 OS2570 094137 oS3546 ISR R1, J8SEARCH ;ISSUE SECTOR CLOCKS <------------ > 

2737 052574 900000 WRK: .WORD :SECTOR NO. 

7739 01 OL 40 MOV 8+NOP,R1 ;GOING TO MOVE NOPS 

7740 010137 oS26s0 MOV R1, J#SEGPER :NOP INTO SEGAP 

7741 10137 O52652 MOY Ri’ aaFSYNER :NOP INTP FSYNER 

7742 OSeble 010137 654 MOV R1; J#ERHEAD ‘NOP INTO ERHEAD 

7743 052616 010137 656 MOV Ri; a#ERCRC ; NOP INTO CR 

7744 OSe62e2 910137 O&2660 MOV R1' J#ERHDGP :NOP INTO ERHDGAP 

7745 CSS62E 010137 Of2¢62 MOV Ri! aeHDESYN !NOP INTO HDESYN 
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004137 OSe73e 
000009 
000000 
000089 
000000 
000000 


co0e40 


ocd240 


000240 


occse40 


200246 


wR 
ne 


SEGPER: 


FSYNER: 


ERHEAD: 


ERHOGP: 


Oo000uW 
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MULATION 


SR 


R1, d#WRHEAD 


;WRITE THE HEADER <---------------- > 
: CYLINDER 

:SECTOR AND TRACK 

KEY! 


;KEYe 
;GOOD CRC 


;#DUMMY ERROR CALL LOCATIONS FOR THE WRITE HEADER OPERATION 


NOP 


NOP 


NOP 


NOP 


NOP 


;1F “ERROR 6” INSERTED BY 
+ WRH AD SUBROUTINE THEN 

OR GAP oe ON OISK 
:1s NOT RIGHT 


WORD NO. CONTAINS WHICH 
‘WORD 15 WRONG THAT es 
:FIRST O NTH OR WHAT EVER NO. 
: BRD WORD I GOING ON DISK 


i1F “ERROR 6” INSERTED BY 
OQUTINE THEN 

QO BYTE OF SECTOR 

IRST SYNC. BYTE 

TOR GAP IS IN 


5 Baez 
3 B18 
on 


WORD _NO. CONTAINS 20 
RIGHT BYTE IS Sex TOS - 
;LEFT BYTE IS SYNC. 

;BAD WORD IS WHAT IS BOTNG ON 


;IF “ERROR OR aRout the THe BY 


:WRHEAD SUB INE THEN 
;HEADER GOING ON DISK 
;1S WRONG. 
;WORD NO 4 = gyi ingen NO 
;WORD NO @ = SECTOR’ TRACK 
de NO 3 = KEY] 
WORD NO 4 = KEY2 
BAD WORD IS WHAT IS GOING ON 


;IF “ERROR 6" INSERTED BY 
:WRHEAD SUBROUTINE THEN CRC WRITTEN 
;ON DISK IS IN ERROR. 


ER 
;GOOD DATA IS WHAT 
‘BAD DATA IS LIHAT 
;WORD NO IS 5. 


;IF “ERROR 6” INSERTED B 
:WRHEAD SUBROUTINE THEN MEADER 


SH BE ON 
IS ON OF 


DISK 
SK 


SEG 92065 


16 
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7303 ;GAP GOING ON DISK IS WRONG. 
5805 {WORD NO. GIVES WHICH OF 
>B06 HEADER GAP WORDS 
2807 ARE WRONG. FOR EXAMPLE: 
780 ;WORD NO 1 = ob St, HEADER 
7811 BAD WORD IS WHAT 1S GOING ON DISK 
¢ 
7813 oS2662 o00240 HOESYN: NOP 
7214 :IF “ERROR 6” INSERTED BY 
7815 ; HRHEA SUBROUTINE THEN LAST 
7816 HEADER GAP BYTE OR HEADER 
7e1? !SYNC BYTE GOING ON DISK IS WRONG. 
7815 ORD Na =5 
7820 iBRO 0 A IS WHAT IS GOING 
7821 RO1SK RIGHT -BYTE IS HEADER 
7822 Q BYTE 7 BYTE IS HEADER 
7623 ig 
ogac 
7826 O5S2664 o0S5737 oD2006 TST QeERFLGS ;ORE ANY ERRORS DETECTED 
peer 052670 001004 BNE FOUT SIF YES EXIT -------------------- , 
7829 052672 004137 951966 JSR R1, JeWRDATA WRITE THE DATA ‘---------------- 
7830 O5e676 Soo000 FNWORD: .WORD 0 FORMAT HE RAND NO. OF DATA 
gg2i 052700 000000 "WORD 
7833 os2702 FOUT: 
7234 


7B35 oOS2716 o00207 RTS PC 
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ESRy SBC RON’ S58_ ReKl scr Bi eee  muL et 


-NOV=>7 10N SEG C202 
seas ;#WRITE HEADER 
7838 
7939 
A 
784 
5845 ;*#RO = MAINT.REG. 
7345 aR = SI MULATED “DISK 
7845 :#R2 = BYT 
FRYE tERS = BRITE MORO 
>a47 :#R5 = WORD COUNT 
848 
seed 
7851 952720 900000 Sov: a) ; 
?. 7ee 0 SSECTR : 
ce Ge Bee ee § : 
7854 052758 900000 SkEY2: 9 
7855 052730 000000 SCRC:| 0 
7g6? 
7858 052732 012137 052720 WRHEAD: MOV (R134, aWSCYL 
7859 > 12137 050788 MOV (R1)+) 9HSSECTR 
Pae1 Deere BSI? bes7se MOY (RL BeeKE VE 
? 0527’ v (R1)+) aeSCRC 
Pees sere Bieri bets2D roy BSECGAPLRI™ SIMULATED DISK INDICATOR 
See Eerse Blane Bl ORR gale 80 ll 
oBeea pesbon oi8 Reels Caney AOY tates iger ~SECTOR FOR CLOcK. “DIBG, MODE, RESET INDEX 
7 $ w A 
7ee8 19 2710 B48 - _ Bit R ORRERK URE TE BIT IR MAING RES 
787 ;SET CAR 
7ere Osene) Boson, BOR 83 | ROvE® ONE FORWARD 
7874 053024 pooest 2$: CLC ‘CLEAR GARY 
7875 053026 006003 ROR R3 ROVE ZERO FORWARD 
7e7e 053030 012719 90000 3s: HOV BOND , aR :ELEBR Sette REE CTOR 
ere GB30%0 Oes715 Booobe ss: BTS Ent a0 SET CLO maiNT REG 
oeeg besoeo BaTabs BEG 5$ eran WRITE BS 
7881 00026 SEC ISET CARRY 
788 3054 ta a3 ROR Re :MOVE ONE FORWARD 
788 30 Bs ap 6 
pose GeSteS poedaa ms ROR R3 
7eee 063064 012719 o00001 6S: HOV sho, aRO ;SET DIAG. MODE AGAIN IN RHR 
~~ ~ L 
ree Gas Shlaee aa 
7892 GE3076 901342 BNE ig ; CONTINUE 
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9 
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OOOO WODODUW 
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SSN 
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FQN 
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8:30 DISK SIMULATION 
MOV R3, (R1)+ 
TST R 
BEG ? 
900001 047620 MOV #1 Q¥ERWORD 
001124 CLR aesGDDAT 
001126 MOV R23, a#SBODAT 
104056 o0S2650 MOV #104006, d¥SEGPER 
3540 IMP dei? ;BRANCH OUT --~-------------------> 
ooo022 73: MOV #18. ,Re :COUNT NO. OF SECTOR GAP 
o000e4 O47620 10S: MOV #20. JSERWORD :COUNT TO GIVE ERROR WORD 
OSO646 JSR PC, JRWRITE :WRITE SECTOR GAP 
050644 HOV SStWORD, (R1)+ :STORE SECTOR GAP WORD 
047620 SUB R2. aSERWORD ;IF NOT GET ERROR WORD NO. 
001124 CLR ae$GDDAT :GOOD WORD 
050644 001126 MOV JeWWORD, a¥SBODAT; BAD WORD 
104008 O52650 MOV #104006; a8SEGPER: STORE "ERROR &” IN SEGPER 
BR 17§ :BRANCH OUT ----------------------- > 
11$: DEC Re ;HAVE 18 WORDS OF ZEROS BEEN WRITTEN ”? 
BNE 10% :IF NOT 00 SO 
:#AT THIS POINT THE SECTOR FOUND FLOP SHOULD 


;*BE HIGH. SO THAT THE HEADER SYNC BYTE CAN BE GIVEN 


; *HOWEVER_IN THE ORIVE TIMING ERROR TEST THE REST OF THE ROUTINE 
;#1S ABORTED - HEADER SYNC BYTE IS NOT GIVEN 


002026 TST asTESOTE ;I1S THIS A DRIVE TIMING ERROR 
BNE 1 :BRANCH OUT IF _Y 
OS0646 ISR PC, JSWRITE WRITE ONE, SECTOR GAP 0 BYTE 
tAND O YNC. BYTE = 230 
OS0644 MOV JeWWORD, (R1) :SAVE O BYTE AND SYNC BYTE 
047662 CMP QeRSYNC,(R1)+ IF SYNC. BYTE RIGHT 
BEG 12s IF YES BRANCH 
ec00c24 047620 MOV 820.,a8ERWORD ;IF GET READY FOR ERROR 
047602 001124 MOV JSRSYNC, a#SGDOAT; GOOD WO 
001126 MOV -(R1),a&$BDDAT ; BA WORD 
104006 oS26S2 nov #104006, a8FSYNER; INSERT “ERROR 6” IN FSYNER 
B 17§ :BRANCH OUT --------------------------) 
oo0004 i2s: MOV #4, R2 3F ADER WORDS 
052720 MOV aStyL RB :POINTER FOR HEADER TABLE 
O0o00S o47620 13S: MOV #5, J#ERWORD ;ERROR WORD NO SET _ 
OSO64E JSR PC’ JeWRITE sHRITE ER WOROS 
OS0644 MOV DBNWORD, (RL) ;STORE WRITTEN WORD 
CMP (R3)+, (RL)+ :IS IT RIGHT? 
BEQ 14g TF GOOD CONTINUE 
: IF NOT GET READY FOR PRINT 
047620 sus R2, J#ERWORD :WORD NO 
001124 MOV -(R3),a8$GDDAT ;GOO0D DATA 
001126 MOV -(R1)'ae$BDDAT BAD DATA 
104006 OS26S4 MOV #104006, J#ERHEAD; INSERT “ERROR 6” 
ER 17$ ‘BRANCH OUT -------------------------- 
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O11e4 
47620 
S266 


047620 


OS2660 


047620 


001124 
OS2662 


14S: 


16$: 


LATION 


EC R ;ARE 4 H ADER i WORD7 JONE? 
NE i3s jIF NOT 
i SLARSTTE,, RUE She 
CMP (R RL) at, Re COMPARE GOOD CRC 
BEO RANCH IF GOOD 
MOV i Te sSBODATA :BAD CRC WRITTEN 
MOV auccRe, SaSGODAT :$o00-€ CRC 
MOV ae as se huge Taser WORD NO 
MOV $1040 SRERCRC : NSERT ERROR 6 
BR 178 wane nn nne--------------------- 
MOV #S,Re NO OF HEADER GAP 
MOV #6; JSERWORD P ERR OR WORD NO SET 
JSR PC’ SWRITE iSFone HEADER GAP 
MOV DetWORD, (Rl)+ STOR 
BEQ 165 F GOOD BRANCH 
SUB R2, ISERWORD PERROR Wd WORD NO 
CLR as$GODAT : DATA 
MOV -(R1),a#$BDDAT ;BAD DATA 
MOV #104006, J8ERHDGP:STORE “ERROR 6” 
BR 175 :BRANCH OUT 
DEC R2 ;ARE S HEADER GAP ZEROS 
BNE igs :IF NOT BRANCH 
JSR JewRITE 
MOV Sterne: (R1) 
CMP BRSYNC, (R1)+ 
BEQ sEXIT ----- een -------------------- 
MOV < OE RWORD 
MOV -(R1), a8$BODAT 
MOV aeRevhc. aeSGODAT 
MOV #104006; J#HDESYN 
RTS RI 


SEG C204 
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6) 
SIMULATION SEG Cecs 


;*SEARCH SECTOR 


COUN re 
ROUNTERS Peon Rl 
s "Given | Tuo. SECTOR CLOCKS ARE GIVEN TO RESET 


;* =RHMR ADDRESS 
if Ri= scape a are BYTES SEARCHED FOR) 
; = 


=¢ OCK 
SECT 
Bye 


HESECTOR ee CAS i 
2A i EACH SEC SECTOR CLOCK HAS TO RISE 
! BEFORE CLOCK THEN EVERY EIGHT CLOCKS ONE SECTOR CLOCK IS 
; SIDENTIC WITH CLOCK 
: *NUMBE THE SECTOR CLOCKS AS FOLLOWS 
j #THE Regt ® CLOCK UNDER INDEX - 0 
5 #T xT - 1 
pate 3 x? -@ 
 SFHEN THE LAST SECTOR CLOCK IN SECTOR HAS NUMBER - 602 
;#THE NEXT SECTOR THEN HAS 608 SECTOR CLOCKS 
jxTHE XT SECTOR THEN HAS ANOTHER GOB SECTOR CLOCKS 
#AND SO ON 
053544 900900 SECTR: 0 ;SECTOR SEARCHED FOR 
3546 012137 053544 SEARCH: MOV (R1)+ SSECTR ;SAVE SECTOR SEARCHED FOR 
3566 615335 apts ' aeRHMA a3 !NOW RO HAS MAINTENANCE REG. ADR. 
3256 Oteete BaoaOL ioe ll RY iy Tic. MODE 
3602 052710 000010 BIS apereK, SRO Peer BERS OR clock 
pesers pessip § popete gis ere Tee’ OR CLEAR 2 Sm CLOCK’ 
053616 635318 000010 BIC eMSTCK’ oho ae aR SECTOR LOC 
i TH ABOVE Two SECT OR CLOCKS ARE GIVEN FOR 
IN ASE I STARTS eT 
3622 052710 000014 BIS SNINX!MSTCK,3RO }SET INDEX AND SECTOR CLOCK 
3626 612710 000061 MOV sOMD, a@RO :R set INDEX AND SECTO CLOck 
3632 00570 TST iJ CTOR REQUIRED JUMP OUT 
3634 001461 RRANCH OF SECTOR ZERO REQUIRED 


BEG 7$ 
[an ;*#NOW THE 304 WORDS WILL’ START 
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8043 ;#FOR FIRST BYTE SECTOR cLoc K al LL GO HIGH THEN CLOCK WILL GO HIGH 
8044 ; #807H WILL COME N SEVEN CLOCKS WILL BE GIVEN 
804S SECOND BYT OND "RCE i HER BYTES ILL NEXT SECTOR SECTOR CLOCK 
B46 bearer BE IDENTICAL WITH ONE C a 
804 
8048 
8049 ;#ONE WORD ONLY 
805 053636 012702 000010 1$: MOV ag, ats COUNTER 
goes 3642 012705 90000 MOV FS QYT a BF WORD 
oN Geese feer19 Gostee HE Barocas om 
Bee peseee Oe BA 3$ C CLEAR SECTOR AND CLOCK 
8056 053660 052710 oo001e 2g BIS #MS(CK!MCLK, JRO i BR ECTOR AND CLOCK 
8057 053664 042710 0012 33 BIC are TCKEMCLK, aRO ; ELRAR ECTOR AND CLOCK 
8058 0536 052710 02 8$ BIS aMcLK, @RO 
8059 74 042710 0o0000e BIC ancLk, aRO ier ane Or bck 
8060 Bos 302 DEC :BYTE COUNTER R 
8061 0537) 001372 BNE 86 ; H IF BYTE NOT COMPLETE 
8062 053704 012702 000007 MOV 87, R2 SET FOR SECOND BYTE 
8063 053710 005305 DEC RS :1S WORD TE? 

8064 053712 001362 BNE 2s ; HI NO COMPLETE 
2065 :TO GIVE SECTOR CLOCK AND CLOCK 
BDES 
8068 ;*#NOW 303 WORDS ARE LEFT AND ALL ARE IDENTICAL 
esa 053714 012701 04S7 MOV R SE TOR, COUN TER 
8071 0537 012705 0002 4S: MOV = : Ese PER UNTER 
8072 053724 61270e 000007 S$: MOV 8 eYOReL ’eb Ook COUNTER} 
8073 053730 052710 o0001e BIS SHSTCKIMCCK, a | 2 
8074 053734 O42? 10 000012 BIC @MSTCK!IMCLK; RO He on frock AND CLOCK 
8075 053740 052710 o0000e 6$ 1S 8 . oO 
8076 053744 G4e710 o0000e BIC 8 ; @RO i 
B58 pesoes por ses BAe i te aie OMPLETE 
8079 053754 b0e308 DEC R3 vee” 
8080 001362 BNE 53 ; HE RO 
8081 005301 DEC Ri g SECTOR COMPLETE 

08 001356 BNE 4§ ; 
B08; 3764 052710 oo0010 BIS aMSTCK, JRO :SET SECTOR 

053770 042710 oocdid BIC eMSTCK; ARO :CLEAR SECTOR : 
8085S 053774 005303 DEC R3 ;1S REQUIRED NO OF SECTORS COMPLETE 
80: 053776 001317 BNE 1§ :BRANCH IF NOT 
BOBS 054000 7$: 
g083 954014 900201 RTS RI 
8090 
Bos! 
B03¢ ;#READ ONE SECTOR OF DATA 

34 40 ocoo RNO: :NO. OF WORDS READ 
Bose qo28 sfaletete RCOM: 8 :EXTRA STORAGE 
8597 
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8039 4 12137 OS4016 REDATA: MOV (R1)+, 28RNO ay NO. WORD NF ORMATION . 
8100 aose 5181 7 054020 MOV (R1)+' @eRCOM WORD oh FoR INFORNA ION 
a! 4038 M4 2 002024 i asTsecc : S THIS BN 

10 pevows eed 177777 045314 MOV &-1, a8TSECCG : SE qs poppe 19, gpemre ECC 
B1 04 O540SO Ole702 o0040e 1S: MOV #258. ,R2 : 
8106 4OS4 7 41 MOV eO01SK,R3 iP NT 6 MULATION 
Sige peu 618537 bebyie os; ov ERS BB onn y 10 was itv NTs 

108 4064 7 O50414 JpR PC, BREAD ; 

1 C WORDS DONE? 

110 1 BN e ore 
Bi11 Oe4O74 Bbiole o02024 ore SaTSECC S MAIS AN cc Ye 

4 4 eT ifr T QRE T NERATEC 

Bits BeqiBe Be Sonal? oe Chet ‘9 seegpetts ERANCE CAP 
B115 Os4i1e 016337 950410 3S: " v (R334 9 eHORD i READY 10 READ bONTeNTS OF WORD 
8117 O54lee Boe D2 DEC Re ! COUNT 
B1i8 De4les 001372 me BNE § :BRANCH IF 14 NOT DONE 
B30 OS4130 g00201 RTS RI ; RETURN 
Side 
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SFRIRBSHNTOV SSS RBILFS OES "OV PBSLP Le ROSNY GD noite PASE 21 sea cei 


gi88 BeBper 088 OSil22@ OS1117 EMee: «ASCII /ERROR ON DRIVES PRESENT -7<15>< 12> 

Bie Rendes 7440 1 of 

a oe 

tt tii -ASCII /THE UNIT NO’S FOUND BY SETTING RHAS USING RHERI/<15>< 12> 
ee 

5199 


ZEERERENTOR 


ae 


— = — 





-ASCII 7(T4) DO NOT AGREE WITH THE UNIT NO’S FOUND/<1S>< 12> 


123 


-ASCII /BY LOOKING FOR ‘NED’ = O IN RHCS2 (BIT #12)7¢«15><12><15><12> 





SUDO TSNSSss cece sae maE Res 





7o1g -ASCII /NOTE: ON DUAL PORT SYSTEM, A DRIVE ON OTHER PORT WILL /<15><12> 
114 
1 
1 
1 
15 
-ASCII /NOT GIVE *NED’, BUT WILL GIVE RHAS RESPONSES’<15>< 12> 
8231 
es 1G 
8234 
8235 1 
Be? -ASCIZ /HENCE THERE WILL BE AN EXTRA DRIVE/ 
8239 
Be41 O605e6 3158 
Beye 060534 paae3e 
8243 06054) 114 EMe4: -ASCIZ /LOOK AHEAD REGISTER AT THE BEGINNING OF SECTOR IS IN ERROR~ 
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-ASCIT 


-ASCITI 


R DOWN AND UP ROU 


7LOOK AHEAD REGISTER IS IN ERROR/ 


/CURRENT CYLINDER DOES NOT MATCH DESIRED CYLINDER REGISTER/<15>< 12> 


/AFTER A SEEK AND INIT/ 


“ECC GENERATED IS INCORRECT’<15>< 12> 


ZEVERY WORD ON THIS SECTOR IS THAT GIVEN IN “DATA USED” 


7ON READ COMMAND, AFTER DATA AND ECC HAVE BEEN READ, 7<15><12> 


“ECC REGISTERS OR RHER1 ARE IN ERROR~<15><12> 


SEG 0213 


SEG 0214 


HO1 
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“POSITION REGISTER OR 11 BITS OF PATTERN REGISTER INCORRECT/<15><12> 
“LOWER 11 BITS OF PATTERN REGISTER SHOULD MATCH LOWER’<15><12> 


ZONLY LOWER 11 BITS OF PATTERN REG. CAN BE READ/<15><12> 
-ASCIZ /ZERO DETECT BIT NOT HIGH WHEN 32 BIT ECC REG. HAS 21 ZEROS/ 


-ASCIZ /THIS SHOULD MATCH LOWER 11 BITS OF GOOD ECC1/ 
-ASCIZ /HIGH COUNT BIT NOT SET AFTER 38859 CLOCKS” 
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-ASCII 
ASCII 


EM33: 
EM3S: 
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EM36: 


EM37: 
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-ASCII 


-ASCIZ 


-ASCIZ 


-ASCIT 


-ASCIZ 


ASCII 


-ASCIZ 


711 BITS OF GOOD ECC17<15><12> 


“DAT ENVLOP GOOD POSITION AND N-CODE ZEROS ARE IN OCTAL- 


/ON READ COMMAND WITH NON-CORRECTABLE ERROR ’DCK’ AND ’ECH’ 


/PROGRAM ERROR BIT #10 IN RHCS2 DID NOT SET/<15>< 12> 


“IF POSITION REGISTER =10040 OR 10041, 


IT IS GOOD/ 


7RHWC DID NOT = O UPON COMPLETION OF READ/<15>< 12> 


“OR WRITE HEADER AND DATA/ 


SEG 0215 


SHOULD BE SE 
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-ASCIT 


-ASCITI 
-ASCII 


-ASCIT 


-ASCIZ 


-ASCII 
-ASCIZ 


-ASCITI 


-ASCIZ 


-ASCIT 


DOWN AND UP ROUTINES 


7FATAL ERROR - SEE DOCUMENT LISTING/<15>< 12> 


4 4615) 412>¢207>¢377> <377> <207> <377> <377> <207> <377><377> 
“THE CONTROLLER OR DEVICE HAS GONE OFFLINE, LOST/<15><12> 


/*READY’, BECOME UNAVAILABLE, OR HAS STATUS BITS/<15><12> 


“WHICH CANNOT BE CLEARED/ 


i 4 

f 

7PC TEST REG. GOOD RECEIVED/<15>< 12> 
/ NO ADOR. DATA DATA / 

“PC TEST WORD GOOD BAD 4¢15>< 12> 
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sont Yel 
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-ASCIT 
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7PC 


“PC 
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NO 


TEST 


NO 


TEST 


NO 


TEST 


NO DATA 


FAILING CONT. 


REG ADR RHCS1 


FAILING CONT. 


DATA 


CONT. 


RHCS2 


CONT. 


REG ADR BAD REG RHCS1 


REG ADR / 


CONT. 


RHOS1 


CONT. 


RHCS2 


SEG 0218 


CONT. 7¢15><12> 


RHER1/ 


CONT. CONT. 4¢1S>¢1 


RHDS1 RHER1~ 


SEG 0219 


MO1 
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RPON/S 
Pll 


C. 
Cc 


4415><1le> 


/ 
4¢15><12> 


Pa 


7615>412> 
4 

CONT. 
RHCS2e 
CONT 
RHOS1 


REG 
CONT. 
RHCS1 
CONT 
RHAS 


BIT REG 
WANTED ADDRESS CONT. 
CONT 
RHWC 
CONT 
RHER3 


CONT. 
RHOB 
CONT 
RHER2 


WAIT 
PC 
CONT 
RHBA 
CONT 
RHER1 


TEST 
NO 
TEST 
NO 
TEST 
NO 


7PC 
/ 
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/ 
7PC 
P 


ASCII 
ASCIZ 
-ASCITI 
ASCIZ 
AscI! 
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-ASCIZ 7 NO JSR REG ADD RHCSi RHCS2 RHOS! RHERL / 





-ASCII /PC TEST PC OF FAILING GOOD RECEIVED/<15>< 12> 


ZEEN ERSTE 


T 
|= P= Pao b= be bas me bo Pe fe pe 


-ASCIZ 7 NO JSR REG DATA DATA / 


-ASCII /PC TEST PC OF REG. GOOD BAD 4€15><12> 


‘,ASCIZ / NO JSR ADDRESS DATA DATA 4 


OH31: -ASCII /PC TEST WORD GOOD BAD CONT. CONT. CONT #<1S>c] 
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CZRJGBO, RPOW/S 6 + me CTRLR1 
O08-NOV-77 08:30 


CZRIGB.P11 


8695 
8696 
8697 


seSRtTEREESS 


NOUS Wl CD 


RERKARARKK! 


PEPTEEPPPDDRDDDBRDNONSN ND 


ow 
oF: 
Bs 





MACY11 30( 1046) 
POWER DOWN AND UP 


-ASCIZ 


-ASCIT 


-ASCIZ 


-ASCIT 


as ub 77 @ 


ROU 


7PC 
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NO 


TEST 


NO 


TEST 


NO 


PC OF 


JSR 


PC OF 


DATA 


WORD 


NO 


WORD 


DATA 


GOOD 


DATA 


GOOD 


RHCS1 


BAD 


DATA 


CONT. 


RHDS 1 


CONT. 


RHCS1 


CONT. 


RHER1 


CONT. 


RHDOS1 


CONT. 


SEG 0222 


CONT. 


RHER 1 


7615>¢1 


D0e 
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-ASCIZ / NO JSR NO DATA RHCS1 RHOSl HERI / 
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DH34: -ASCII /PC TEST GOOD GOOD WRITTEN WRITTEN DATA 7€15>¢<12> 


BEER, 


a3 


eRenTTEhtt EPBRRBRRANMAGr eT: 
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BAH: om 


-ASCIZ / NO ECcC1 Ecce ECcC1 ECCe USED / 


~~ 
NOME 


DH3S: -ASCII /PC TEST GOOD GOOD PATTERN POSITON GOOD RHER1 7<15><1 
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Jeu 


4 
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-ASCIZ 7 NO Eccl Ecce REG.REG. POSITON REG. 
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HOC 
tata? 


: 


att 
ot A 





aictret 
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76 
Bspi ae 
06671 1517 
D667 128 
| PSP 
066737 .ASCIZ / NO JSR CONT. REG. REG. / 
rae £20019 
en: 
DEE 0 
EE 124 
G.els 
| te 1 
Sie 
Oe 920040 DH37:  .ASCII /PC TEST POSITON POSITON GOOD GooD PATTERN DATA N-CODE / 
be 7036 p 
Be 5 
7 
Tos 
067108 
besiie i 
beri se -ASCIZ / NO ECC GOOD ECC1 Ecce ECC ENVLOPE ZEROS/ 
Bes tue 0 
peri 
067170 
7176 9 
pe3 1 one1e6 
0672 
oe 7505 oeese 
06 O OH4O: .ASCII /PC TEST CONT. 7<15><12> 
7 123 
be “Biz 
3 1 020040 -ASCIZ / NO RHWC/ 
person ps i040 
067302 
. EVEN 
067 06 86660 OTL: .WORD SERRPC, TSTNM,REGADR, SGDDAT, $BDDAT,O 
067362 7620 DTe: .WORD  SERRPC, TSTNH,ERWORD, SGDDAT,O 
7334 7620 ODT3: .WORD  SERRPC, TSTNM,ERWORD, SGDDAT, $BDDAT,O 
067342 000000 
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OT11: -WORD SERRPC, TSTNM, SBDADR,CS1,CS2,0S1,ER1,0 


¥ 
g 


OT14: -WORD SERRPC, TSTNM, SBDADR, SBDDAT,CS1,CS2,051,ER1,0 


seg 


OT1S: -WORD SERRPC,TSTNM,STMP1,0 







7 
7. 
7404 
pea 
ber i OT16: .WORD SERRPC, TSTNM, STMP3,STMP1,STMPO, SBDDAT,O 
74 
eet i OT17: .WORD SERRPC, TSTNM,BA,08,WC,CS1,CS2,0 
O674S4 Bai 7le 
7460 1 OTe0: . WORD SERRPC, TSTNM,ER1,ER2,ER3,AS,0S1,0 
Deriee Bolzee gre : 
rete Boi DOTel: . WORD SERRPC, TSTNM,CS1,AS,D0S1,0 
14 OOl111 T2e: . WORD SERRPC, TSTNM,O 
gece DC 1118 Te4: . WORD SERRPC, TSTNM,OST, SBODAT, STMP1, STMP2, STMP3,O 
ees 
00 1204 
per ea8 pet ll OT26: . WORD SERRPC, TSTNM,PCJSR, SBDADR,CS1,CS2,0S1,ER1,0 
067550 i 1g : , 
1 OTe7: . WORD SERRPC, TSTNM,PCJSR,REGADK , SGDDAT , SBDDAT , 0 


16 
4 


RR KRRRK 


1l 
ooeol OT30: -WORD SERRPC, TSTNM,PCJSR,REGADR, SGDDAT, SBDDAT,O 


See Bey 


7or0 OT31: -WORD SERRPC, TSTNM,ERWORD, SGODAT,SBDDAT,CS1,0S1,ER1,0 


OT3e2: -WORD SERRPC, TSTNM,PCJSR,ERWORD, $GDDAT,SBDDAT,CS1,0S1,ER1,0 


i coal aoe 
Ne 
oe 


tf ow 


DT33: -WORD SERRPC, TSTNM,PCJSR,ERWORD, $GODAT,CS1,0S1,ER1,0 


SAFARIS 
Bes 


aoe 





2 

es 
—-OK—— 
oO 


SE PUSLR Rae HIS ERSREE ORRIN TS coor ee TTT 


067710 1116 DT34: -WORD SERRPC, TSTNM,GECC!,GECC2,WECC1,WECCe,DISK,O 
8310 ber7es Osiiie a 
Batt ae i agate OT3S: -WORD SERRPC, TSTNM,GECC1,GECC2,EC2,EC1,POSITI,ER1,O 
8913 067744 4748 000000 
8914 alee 1446 Borde DT36: -WORD SERRPC, TSTNM,PCJSR,MR,EC1,EC2,0 
Bate Bes, 34 1744 1746 
8917 067770 1116 002032 001744 DT37: -WORD SERRPC,TSTNM,EC1,POSITI,GECC1,GECC2,EC2, DATENV, ZCODE,O 
6918 067776 O4S32e 045310 045312 


Si 


SUUEERPRSDAIUURR Dag ona Teas oaacamTERS EU ENTENeS 


3 


RPO4/S 6 
Pil 08 


OSKLS CTRLRI1 
-RBvt32 08:30 


MACY11 30( 1046) 


070004 001746 O45326 045330 


070012 


nee & 


ie 


SBS888s BBSSSSSSesssses SSSS8SBE8888 888 


at 


ee 


sosasss 
SVEWIRDS 


rm 
Ww 


Ssdaasss Scccccs 


TEREST ROSH BVRBVR 


Saas 
sane 


oO 
fu 
wuN 


Ef 


° 
8 


0 


BEES 


Se 
88 


8 88 888 88 88888888 


fe 


000 


DT4O: 
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. WORD 


. BYTE 
- BYTE 
BYTE 


BYTE 
- BYTE 
-BYTE 
.BYTE 
- BYTE 
- BYTE 


- BYTE 
-BYTE 
-BYTE 


-BYTE 


.BYTE 


BYTE 
-BYTE 


- BYTE 


- BYTE 


BYTE 


SERRPC, TSTNM, SBDDAT,O 


0,0,0,0,0 
0,0,1,0 
0,0,1,0,0 


0,0,0,0,0,0,0 
0,0,0,0,0,0,0,0 
0,0,0 

0,0,0,0,0 
0,0,0,0,0,0,0 
0,0,0,0,0,0,0 


0,0,0,0,0 
0,0,0,0 
0,0,0,0,0,0,0 


0,0,0,0,0,0,0,0 
0,0,0,0,0,0 


0,0,0,0,0,0 
0,0,1,0,0,0,0,0 


0,0,0,1,0,0,0,0,0 
0,0,0,1,0,0,0,0 


0,0,0,0,0,0,0 


SEG 0226 
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fe] 
070246 
000001 


MACY11 30(1046) 
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POWER DOWN AND UP ROUTINES 


DF3S: 


DF 36: 


OF 37: 


DF4O: 


. END 


- BYTE 
-BYTE 
.BYTE 


-BYTE 
- EVEN 


0,0,0,0,0,0,0,0 


0,0,0,0,0,0 
0,0,0,0,0,0,0,9,0 


0,0,0 


SEG 0227 
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aes = 11318 
ee = Bpgaae 1348 
a nn ae 
aes 
a OO” ope Ores ett tpg «32S usu, Sage ~=—s879~—Ss«éP 
aia. iSe3s eoge 4036 «48S 4870 Sée6 S744 = S83H S28 
ATTEN 6 13078 «188e% 1625 3015 4033  4ee8 489% S624 S742 sez2 S926 
ato = T 10588 
ATL = O00002 10898 
ATS = 900004 10608 
ATS = 000010 10618 
AT4 = 10628 
ats = 10638 
ate = 900100 10648 
AT? = 000200 10658 
Ale = 000400 9938 2739 S049 S065 
Rl? = 001000 10008 3739 «= 8049s Bes 
BA 001710 ize4e 4185 8199 aBB7s 
BAI = 000010 Sis e654 6594963 «S057 S073. S371 «6734 
BASECH D4Ge40 510 lose «|= 7134 
BEGIN 540 209 «13828 «97131 «8132 
BEGIN2 004230 fii 13808 
BITST  O422b6 1960 «1e?>,)si67B0Ss«1727”~*é«‘~ Be)~Sté«‘«k?3?~=é‘aw?S2)~Ssi«a799~=SCté«aOS~S—«éiBLL~=Ssés11~—Ss«OA 
BITO = OOD001 So3e «(4835 «= 6493—Ss«wS2B)CéGS;30 
BITOO = 1 2038 
BITOI = 5038 
BtTDS = 10 e038 
= 
BtTba = popes 2038 
BITOS = OOOO40 so38 1782 
BITOe = 000100 2038 17 
BiTp8 = BODSOE eo3e «$5853 
= 
BtTbS = Botons s i761 i782 6131 81232 
BIT1 = o000Ge 5038 6507 
BITIO = 2038 8132 
BIT11 = 004000 S038 8131 
BITI> = 010000 5038 
BITI3 = S038 6523 6525 8132 
BIT14 = 040000 2038 6800 8131 
IT1S = 109000 2038 6495 6602 6509 6518 6520 
BITS = 038 
BITS = 000010 038 
BITd = 5038 
BITS = 2038 
BITE = 0001 2038 
BIT? = 2038 
BITB = OOO400 2038 
BIT9 = 001000 5038 
BLTi ~ o4e314 60778 6082 
Bie 4Baa6 £077, 6078 6084s 
ECT OUD SHE 6085 60ses 
BPTVEC= OO0014 coe 
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ca 001726 12738 

CAT 037000 2623 SSeba 

CC oxpe OoLGee T2g3e 

EHECKE 043080 ie Be ee eae bo ee Dae ny cole oar teen Ses 
a's 1 Br33 5308 6359 S479 SS07 5s80 S719 sso0s ss9gl 612848 6363 6449 

CKSWR = 104407 86131 81328 

CLAREA Ad ayy i 4237 4337 4341 447, 447, 448] S 4Se9 Pe letats} 4HO98 Ss 

- ces Wei? ued mie 4714 4734 477 428 4932 dase. Slee S142 S2ee 
Seso0 S298 S438 S443 Sey Susy S4S7 S461 S479 5S07 oseg esss 61368 

CLOISK OQO4%2614 158s 4083 1670 1683 174 185 197 99 21S6 2e41 2334 23 
2410 1 2479 a S73 ess 643 eb6 2730 279 SY 2921 
3073 sid 33 Bay 8 357 sege 3815 3874 3877 4072 4175 
4275 u 4451 4yucg WuUBY 447, 4501 4614 t=] y Sess 
S302 ered 23399 y Ap by ay edt S473 S479 ss03 SS07 6528 SS6e2 

CLR 000040 a 2) iee9 2003 Set 3864 BS 3283 pieee BPS Sess B32? erst 7 

COMHD . 047340 cueh eels o8ee 4470 4513 4965 s0s9 Sess 5310 S479 5507 Ss 6365 

le 7370% re 74B1e 7614% ~ 

COMPAR O0435i0 i898 1 219 eo78 ss Ay 23902 3141 3194 S7 3305 3374 3418 3509 
3SS4 2g 374 733 4 4056 41S2 4YO46 4349 4S] Yule q4g4 
4674 4786 Se S414 64S S58so SS44 63848 6633 6659 

come® 051060 tebe jeis, jehy sioleinan 

CPHALT 3068 3893. 4114 4139 4206 4228 4308 4332 4407 44s] WYSE May 4470 
eas sere 4953 7 Bess 5308 S$3s9 S479 5507 ss80 $719 Ssso0s ss3gl 

= 33, guys 6886 Bie 
> 

CRC 044022 4096 4185S 4286 4390 4451 4B4 4470 4495 YO4UG 5039 Sess S292 
S479 5507 sssSe 6346 6431 64838 6$73 

CRLF = OO00200 S038 8131 

cof OE Bopp TS tice = tisse 

esl 001714 12688 4 Ss 334 gan ade 6187 6191 6197 6239 6246 8864 8867 887s 

cse 001712 ieese fos gs78 43 4 2 ext 233 e415 2435 4631 4749 47S! 4864 

CYL 047500 44uSile 4YUORe LN EY 4470 WHOB# YuUgE 4939* 4947 S032 So4o Sess+# S2sss 5479 

OAREAD 047554 7306. 73138 SS43% SSS3 6339% 6347 6423% 6432 6567 6574 7ebbs 

DATENY O4S326 62508 % 7S2S* 7568# 7583* 8917 

pected es take pa YY BY se 4493% YOU & S037# Cesse 6344 6428 6S72% 73208 

DCK = te 10428 Set0 6688 6693 6709 67le 

GCL = 1 11858 

OCLEAR O020S0 13418 2958 

DOISP = 177570 S038 Se4 1387 

PENvL = Bppson ‘neces 

= 

Del = 900086 igre 

OF 1 0024 S34 6S3 660 8925s 

OF 11 70042 642 941 89328 

DF14 70051 673 6335s 
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is 70061 ed 89388 
Brie eet 63 89398 
OF 17 070071 706 8941s 
2 78 
§° 1 e 
1 1 7 8 
OF 22 070114 74S 89508 
De at 7 773 89S28 
1 7 Ss 
OFe 701 g 
Beso rona B20 esgie _— 
OF 33 1 583 8338 
OF 1 559 61 bbe 
DF 33 0701 sSe 69698 
DF 34 07 838 89728 
DF3S 070213 8S7 929 89758 
DF 36 070223 872 8893 89788 
DF 37 070231 Sle g3808 
DF4O O70e4e 3S0 © 
OFS = 000001 10098 
DH1 062727 Seg 64 B4S18 
OH11 063175 634 33 64808 
DH14 063355 66S eso0e 
DH1S 063SS5 679 238 
OH16 063606 687 Sebe 
DH17 063751 698 85468 
ae 3052 516 ay 
4134 ll a 
DHe 1 064317 724 B68 
DH22e 0644 740 86018 
DHe4 o64s4e 759 77e 66138 
Buse? = bead 793 : 
Sl 7 86568 
DH30 Se73 B13 Bb74e 
DH31 Zour 75 3° 
DH32 41 Ss8 87148 
DH33 066064 S43 4 r 
DH34 066267 [=F4=} goes 
DH3S Dobiae 848 91 8782's 
OH36 ss 863 880 Oe 
DH37 067014 900 B82els8 
ped 067232 ate 88468 
3 = 
DISK 1416 iB44 1847 1300 1914 4154 youd 4351 4451 4458 4464 4470 4477 4478 
4606 4607 4611 4618 619 4722 4728 4735 4736 e8 HOES S025 26 
5130 1 5143 S144 $149% Sees 5281 $320 5479 5507 5530 667 Boc4 
6661 07: 7092 7093% 30 76848 8106 8908 
DISPLA 001142 Seve 1387% 86131% 81328 
DISPRE 000174 S048 387 
er = Apo othe 24s 2396 e465 2467 
OMG =©«= 000001 10468 17 749 770 1986 2101 2171 2644 2661 2742 2798 28ss 2936 
7 7 16 2 28 3326 333 344 3463 3464 3470 3529 3 
O1 360 36 3723 & 381 3831 3835 3874 3904 33913 
4035 4072 4413 5387 5391 S435 S44 S44sS 545! S473 5503 S625 5631 
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397 7 743 784 826 3 75 5920 5927 741 6768 7023 7241 
373 3338 S408 328) S04 5E32 3637 7555 7565 580 7722 7865 56ee 
7876 7886 6027 8036 
DOG 036334 68 re) 
DPR = 000400 10178 48S0 4870 4906 S482 sues 5510 5513 6210 6213 6258 
ORY = 000200 10168 86 2811 28793 3120 3171 3236 3284 334S 3400 3489 3537 3610 
2333 31 3776 4850 4870 4906 $393 S462 s4es 5510 6S13 6210 6218 
DST 0017: 12708 1% 3992 gess 
OSWR = po4z58 rm 328i 1387 
DS1 001736 1 cc 2684 pg | 4868 4904 S480 S486 $508 SS14 6208 6213 6218 6253 
oT 1740 ‘ 8864 886 3 8882 8es8 68398 8301 8390S 
DTAGAP pe3735 tea ] 
OTE = 010000 10398 
prt,” Beeooe 1083" "Zen "eeg Ss aee 
OT11 Be7306 el 330 eseue 
OTi4 067370 67; 88678 
OT1S 067412 pa 3 88708 
DOT16 067422 6 88728 
OT17 067440 at) 88758 
DTe per aes 8es3e8 
Bret ei 523s Beace 
Biss evel fad BRAS 
DTe6 beseas 791 88sss 
DT27 7564 806 09248 
OT3 7334 bel 62 68618 
DT30 eh} & 
DT31 067) Ss 8898 
DT3e 067642 S68 89018 
OT33 7’ 551 r 
DT34 067710 836 Sage 
OT3s 067730 gss Se 89lls 
OT36 067752 g 7 89148 
D137 067770 1 178 
DT4O 070014 94 a 
Ova = 004000 10028 16 1698 2190 2ess ? esse 2488 2496 2497 2516 2518 2526 
ese Ss 067 108 SiS? 191 ge A8 
he. 208 oasis 3 # OB4# Bb# 498% Sooe 751S* 7517% 7558* 7562# 7573 7S77# 
= 
33 s O00 i Tugs 2755S 4451 Y4ESe YoY 4508 4959 sos3 sess 6359 644S 6609 
ECTEST egos 70S2 7087 093 7526 7569 7584 
EC 1744 12808 gait 14 17 
EC 174% 12818 1 4 914 17 
TVEC= 20 # 138 * 14208 1449« 
EM1 0S74S4 7 61418 
EM11 0S76e5 6 one B81 81608 
EM14 057660 pet 81658 
EMIE «BE? PET e gi5es 
M1 7751 686 17S8 
EM1 0$7772 697 61788 
EMe 057537 S41 SS6 573 81508 
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boos? rag Bl 
1 734 81 


1 
Mee 


Re 
a3 
- 


£ 
sare 
4 
slants 
De 
OL 
2 
@ 
: 
: 
: 
8 


3005 3008 3011 3023 


zagag6 
Ge 

papaer rae Reser. 
ee 


ERCcSec 013430 sp} 48 9 Spee. 20eS 2028 2031 2034 2037 2044 2049 2058 
ERF oo2006 * 4 4117" 4 4148% 4209% 4227 4yo42* 4311" 4 
= dscee ABSE AGcHE «= GacBsGaeGa | adoe «| e7Se «a3S* | SER* E524 USES ada 4872. 
% & % % 3345 35° 1235 SS07# SS81l# S660 S675 
333, besee % lle 3 132 
ERHDGP 052660 2 r } # 
ERHEAD Osee54 poses 77908 794S*% 
} y 4g q 73; S626 S744 S834 5928 
RRVEC= Snes ft ees 14228 1828. tees Bi 1s 
T 7. 
ER UD AD ees otis" g es4e 10 3149 3203 3264 3314 3381 3427 3817 3563 
7 2064 cee 4539% 4S44x 498S9e 4994s 5 22% 327% 
421 479% S07 se53 S674 76 8 5952 6393 6399 ls 396% 
79728 go53. You ge" 89S# ssc5 906% 7328s 73936% 73942% 79S6# 7361# 736S* 
ER1 001716 be ty 8252 Sig £324 : 3 8864 6867 88793 688s 88398 8s01 830s 
ERe 001722 12718 68879 
eal ie = 
1 = 10878 
XT10 = 1 8 
xe = 1 g 
XT. = idslis 
XT4 = OOO0004 10898 
Ex Tuo = 000040 10928 
N = 11138 
» Chee” 1 , = 6S 
F 1 6 333 14028 
FMT22 610000 Ay 4118 4179 4195 10 4280 7 4312 4384 
“: Me ¥ et ae 1 4Yy 14 Wy g 448) 4508 ued YBY4G 4939 4959 S032 
S s3 53 S438 Sy} sus S479 sso SS40 SS43 cs68 5708 
F 7% 57; . Bi dus 5802, 3828. $333, 6359 6423 BYH4S 6S67 6609 6735 
& ORMat 1062 76098 7623 
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cour eeaoe one 

ESY 1 45 eb ge i 

Gene OaeeNe aise, Sig? eae, ase, gem 77aze one 958 

ccl 1 8 1 6 % % 8911 a3} 

GECCe O4S3le ae b876 & % 7077% 7093 908 Faas 917 

GNS = £EREER U 1 14 140 141 143) 144 eae 14869 1513 1$S7 1S60 1562 
1627 5oe? 4 1 46 5033 493 5082 352 S963 3733 6022 6024 6027 

1 198 lel le AS 127 71e9 7131 713 8126 8132 
eye] = 90000: g lll ss 4  e751- 808 6 e959 3114 3118 31693 3230 3234 3282 
3 38 Sees ; 487 3238 3608 3653 3717 37293 3774 3830 
yay Leg 4416 4E58 335 736 582 S9e1 6742 $769 7244 7725 

GRV = 000010 10lee 

heBtre dsease dgeoe | Sa38" 

pnnper eae 68478 

HC SY Bay Say Segy ETS S461 65938 

= 1 8 6688 66933 

Hey 2 10358 g703, e703 e712 

een 1414 ; mae ° 

ease sere fe Sl 

YN 38 A> 4 7 3 7443% 74B4% 

ow Py a : is 

IAE = Cobalt “3038 Bi34 5830 S924 

IE = pongo 9978 

z 1 10278 g678 

vt oo id4 i “+4 S7# ebE2 

IOTVYEC= & 1967# 

™R = 000100 8 1 2188 224s 2e7S 2e85 2300 2413 2433 2467 2543 2549 2ss3 

Xe ‘. 000 1069 " rit: . $073 5160 5609 6113 

KEY1 posed 1% Haba YOY Y47 Ox 44S1# YQuUOe So3S«* Sess* Seas S479# S507 SS48* 6342s 
64Eb48 6570# 7268s 

KEYe 0%7506 y 1G uu ge YY BYE 4470 MD x 4943 S036* Sess S289 S479 5S07+# SS49* 6343# 
6427% 6571# 72698 

glee tre £ 

ot el 17636 es 

KIPAR3= 17 338 ee 

KIPARY= 17 ee 

KIPARS= 1723S2 Secu 

K onaes 1 cy ri 

Kipoebs 175508 : 

KIPDRIs 17 55be : 

ee : 

K s 17 } 

K = 17231 ees 

KIPORS= 17231 es 

KIPDRG= 172314 Sees 
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KIPOR7= 172 
LA 1 
LAD 
LERR 
= 


900018 


6i48 
74 
he 
Lst_ 43 age 4 510 51 
MAKECY 168 4 44 44 t 473 5603 5691 67618 
MCLK = O00002 ; At ._ = oe Sacer 8108 397 ¢ 76 4Oe2 4023 4026 4027 
= 
ets 1 75 37 37 358 381 7382 #7493 #7510 # £7565 
70 7868 ####7878 #8054 80S gases 40 base) eaed bee 8076 
MCPE = O20000 10038 
atc = Beeiee £3438 page 
a fain af 
MINX = 10488 il mse 25039 304 +2705 3% i212 S69 jjS699 S765 S78 S876 
aie 5877 7o4u2,—— 7243——«‘“7723siC7724 sO 
MOL = 019000 192}8 1664 1665 
MR 88 334 12768 ©8914 
MRD = 990020 10508 7491 7496 +7504 # #=#?7S13°~ «7521 
MeTCK = DBS este ech 3463 3601 372 3906 3907 390 3910 3912 3944 3945 3973 3974 
4 4 4Oil  4ol 40 4027s 7374—'ss«i73760Ctsé«73'7°8 7900 i«sW7493—':i—«‘“SC*«S EZ? 
7868 goes 8025 8030 8031 8035 #8053 #8056 ### 8057 #148073 #48074 #8083 84 
MWR = DOOO4O 10518 cS 4607571 2Cfs 7869—Sss«W728°79 
NCODE~ BYSate caus 
NCOUNT 684S8  7030% 
NED = 010000 9808 1849 7148 
NEM = 904009 9798 5073 
cea Seen Hist 8" aoe, 
NOSYNC Base is 6x 6S438e 5S443e sSyyex SuS4s S4S7* S461* 7307 #73588 7431 #7455 ~~ 8131# 
NOUNTIT poucce 1 8 * ds Be 1875S 608* 980+# 
46 4470% x 479% SS07* SS0O* 31S 
NUNIT 002000 12918 1875* 1576 2982 
OCYL = 100000 11978 
OFREV = pode5O isiSe 
OFino’= popdo4 ies 7 
OF200 = 000010 11438 
OF25 = 900001 11408 3475 2535 
OF 400 = 000020 Live 
OF Boo = 000046 114e8 
Opis 620000 retet me 
ORs 00 9758 98 300 342 2430 e446 2467 #4235160 S608 6113 
OUT papere aon" 5575 #317 $3355 
PAR = 900010 10308 1715 #1718 
PAT s 1687 1705 
PCJSR 002014 13058 6184* 6185* 6236" 6237" 6593" 6594* 6762* 67634 7019% 7020 7238%  7239% 
7719 7720 8888 #8891 68895 8901 98905 8914 
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e 44419 
PIE1 = Pre ars 
PIE1O = 68078 
PIE11 = g 6308 
3 le = ® 6941 
PiELa = ie 
PIEIS = 128 
PIE16 = 68138 
PIE17 = 148 
PIES = 1Bs 
P = g 68939 
P = 68178 
PIE21 = 68188 6916 
rites pels Fase 
= 
PI = 8 
FES i 
= 
Fleas : : 
= 
P = @ 6941 
PIER = E8288 
= 
ETEGe = ogee 6880 6888 
PIEY = ls 
PIES = 680e8 
PIE&6 = 68038 
PIE7 = 6804s 
PIES = ee0Es 
eth = 1 3119 3170 3235 3283 3344 3339 3488 
Pine = : 
PKACK 1 % 2102 
PLU = 11198 11368 
TI ; oa 6981 7028 7036 7037 7039 707S* 8911 
CA 1811e* 
PRCS1 levees 
PRCS2 1458 16728% 
ae tig 
= 
R 15 ge 
PRE 17998 
PRERS3 18138 
PROF 1 oH 
eRoe = 19 ] 20ss 2200 268s 3029 4849 4869 4905 
1 ge 
PRO = S038 
PRI zs S038 
Pre = S038 
PR3 = S038 
PRY = 5038 





3536 


8917 


S4e1 


3609 


sso3g 


36S4 


6209 
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PRS = O00240 5038 

PRE = 000300 S038 

= 

pe = POSE 253s 13908 soeee 60218 

PSEL = 1 8 

Psu. Cis 1 11808 

PSW = 1777 8 

PUTREG 0422 2 B66 28 2301 2343 2394 = BML 434 PBB (isi“PS—si712—sis 47 

io) a 4es7  Sié1 ‘Base 316 5479 «4§S07 5665 60488 6186 

PWRVEC= 000024 8 1 % Biaee 

Pip 045336 ® 6310% 6911% 6940 

p25 8340 ® 6918% 6919 694 

Pog 2 68648 * 6927" 6946 

PS 68618 6901% E902 6939 

RA 000200 5098 7129 

RCOM eupeo : 00% 

RCYL 4 agi8 Bee moo 

ROCHR = 104410 S131 81328 

ROHEAD 047622 7261 at 

Rpoer = ipyaie Pite® 7 60 7109 1328 

= 

DY = op0288 » FR5e B33 2130 ZhES BA3E® «nue, «= ues «43249 SUG? 1G 2526 
> is 88 065 E30, 549s 5523 6108 6187 6197 6239 

READ oso414 389 401 7403 ywos 460s740?—i‘i“4OS)=—s«s7SO)s«7S4H—s«C7BOW BOB 

READAT 002066 13468 4953 5046 

READIN 002102 13548 

RECALT 002046 ioe 37 

REDATA OS4022 1 ® 

REFOR 902070 13498 4 464 5255 5720 

REGADR 042264 W7gx 1699" 1710» 1719s Ge 177 26% 9x 2144" 2229% 2315" 2321" 2361+ 
O38 4 * * gx 3498% iSe ax 50 64% 3593" 25590% O7* 
5e14% * Ge 12% * 9151% * bt Saige 3383 3423s 36198 65% 
5638 * Soe * pos 6ddeds «Sess | Soees «| B078 * 5453x Suage 5612% 
Seese = 57708 * 5954s 98 6073% 6681% * 6702 6713 67798 8857 8891 

REGSAl oOS644e i4 1328 

REINTS 003154 13628 210 114* 2 135 177 Jeex 21898 * 91% ge 21998 2194s 
eigse G19" Bi * * * 16 22 Sux Sse 3757% 57698 
5771 li 118% 19% 31208 31 14 169% 31708 3171" 31728 43173 
5189 95 34% 35% 36 1 G31 Jeoae jeebs  Se8b 
3 oa LK ae % # # 3400 3401 3415 
341 80 * 346B% 9% i 530% 36% 3537" 3536" 3551 
355 * 9x 10% 3 ge 3eG4s See 3656% 3668 3673 
377 , 308 is 4 Ge Sx 6s 37778 3789 3794 3826 
3635* 3856" 4 365 90 4o32* 4033" 4035" 40368  4037% i 4057 4145 
414 41S3 4234 4e Wy 34 4 33 4339 q 95 4343 4350 44S] 
yy i760 ied yy 4S04 4537 4581 ists) 4yoeg qy S33 4600 4676 
470 47 471 Wig 4? yele 4638 W333 SY 4987 «s«S1ll_—SsSs1 16 
512 siey 1 51 231s‘ S S S331* S392 5393% S394* §395e 5396 
8409 4 438 BYN3 sug 5ugH 8457 Hel 57s 599% QO Sb04e S605 
5606« * 10* lls 5612 Ox 26328 Se54e Se25% Se26e 5640 S646 705 

39% WOx S74le 745% S7d3% s74de §755 5820 830% §5831* §5a32% 

esis Sex Sev5 5851 «S514 SGate © 5254 Saebe  Sac7e § SGege 999 SSNS EIEE 
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RELEAS 1 8 3621 
RESVEC= 40 8 
RETCL 1 8 3587 
RHAS 001656 12418 14 14 4827 4 % 
RHBA 001634 1 a 17 1977# ies eras" hy pd ae 4193 4e9oSs 398% 44S1* 444Ss« 
4Y4B4% 44470% So4w*# 4 % 4x O86 S* S304% 5369% S479# SSO07* SS64«# 
901700 $2 x th % Ses3% 6355* 6441% 6606% 6732 
RHCA 001652 1811 *  2169% 2738% 2934 309S5* 3104 3221 S7# * 4119% 4211# 
4313% shee 44Si# 444S8% 44464H 4470" 4Y4S11# 496e% SOS6# S255* 5$307% 5359 5373 
S479 % s 77% * g1 % # 5903 6362e% 6448% 6598% 6736% 6765% 
RHCC 001676 12498 Ss 1 7 
RHCS1 001640 12348 182 S7 Ss 102% 5 64% 2741% 2751% 2929% 3079 3114 3220 
3230% # 40% 74% ¥% % 96% 708* 3717% 3821* * 390S* 44414 
44 16% 4ESBe 753% 3 % 08 42 492 3r5e 736% $8272 S92l* 6106 
6166 6729% Yon 6767% it 1 ll 116 12s 244% 772S# 
RHCS2 001636 leess 14s9 aes 1534 614% 672% 1678 1687 1727 1732 1737% 1792 1799 
he H dBis8 48} # d # 3% % 2 e427 e9o3% e9e8% 4W4el 4836# 4837 
4 % ea 1% % 1% 1% ll 6167 6734 
RHCS3 001702 12eS48 
RHDB 001630 leees 44 197S% 39 24 94% 2308 5708 2315 2321 2337% #2351 
2361 * 0 * 2960 110 
RHDST 001644 12368 1 1981# 166% 736% % * 38802 3901 3921 92 4111% 4204s 
4306 * 4YSie 444S8% 44464"% 4470% 4S07% 4958% S0Sex SeSS* 5305 S370% S479 
SS07# 7% 7d Cay % eee* 6 * 6444" 6603% 6733% 6766 
RHDS1 001662 12438 3 4 Si2 168 
RHDT 001664 1e44s8 1 1837 154 1S44 1547 1849 1560 1616 1618 1629 1630 1632 
1635 1 1640 164 1657 1659 1869 1871 1874 1876 1879 1881 
RHEC1 001670 le46e 6981 
RHEC2 001672 12478 : 2861 e970 6975 
RHER1 001642 deze 1434 2683" 1 at e185* 2930 4820 5819 5838 5860 5913 5932 
S354 6169 6677 66 66 6702 6707 6713 
RHER OO1646 12378 1739 1 % 44 3e%x 44822 
RHERS OO01654 12408 rt % 170% 2% BE OY 
RHLA 001674 12468 777 3836 3920 30 
RHMR 001660 gis® yy 1 % 987% Ol# s 72% ged: inked 742% 2798* 2855# 936% 
37% 3¢ % it 63% 6% # eb* 393% UG # Ss See 3463 Ga 
70% 3529 78% 3% * 1% ex oeige 3698* 370S* 3706% 37228 3723% 
3769# 7% aie 4 4O72% 4413% 387% 435% S440 Syyce S4Hsl# S47 3% 
SS03# l1* S697 98% % 3 34 ra 785% 786% 587S* S876 5877 
5919 6741#% #6768 22 241s 242% 243% 371 622 77ee% §8©—7723% 7724% 7864 
RHOF 001650 heaee 1805 138 *  2168%  2737% 933%  347S# 3883* 411B% 4210% 4312% 44411 44Sl# 
] = 44B4% 44470% 4 * 4 o3% Sess S306 S372e% S479 j#SS07% #SS68* 5723 
S809 oe23" o3e>" 644S*# 6609% # 
RHSN OC1EBE 12e4Ss8 1 18 1658 
? 001632 ise28 727 76% 3} uy gies 176 2209 2229 2574 2734 2746 
bY 7 Sse 1 s5e8 2870 288g 2912 2926 
3109 1 1 4 1 2s 243 266 329 3316 3335 3361 3 
3407 3038 19 Say 3565 3238 3616 3638 61 3684 371le 
3737 3 782 B42 3864 88 4O44 066 41028 4133 4191 
422 y % 4324 4396% cone” eras” YUBYe 4470 4503 YOSys S047 Sess S303 
S368 S479 SS07% SS63# #«55 S632 s6ss S704 5728 5748 $770 5790 5881s 
6049 6051 6354" 6440" 6604* 6731% 
R+70 o02040 13628 1407# 14464 14S7 1670 2241 2262 2328 2386 2410 2478 2536 $023 
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RH70CK 14058 
RKEY 7610 38 Z268% 7404 
RKEY 2 73348 7369% 7406 
RNCTRI BeeueG att 
TRI gouge 727% 7729% 
RNO OS4O16 8 6099* 
RNWAT1 052540 77278 
REVEC 001626 ieiee 391 gt 7124* 7127 8127% 
RPVECT 41 81 
RPOS # 1615s 1 lx 3086 S465 $537 5573 5618 5897 
RSETR O06 a 4 4 
RSYNC 047602 73308 73 7397 7429 7440 7453 7463 7926 7929 7975 7979 
RTN 006020 1447 144 8 r 
RUNCTR 047336 72378 6%  7248% 
SAVDT ett {SoBe 1659% 2063 3036 
SAVER 043306 e108 e120 2175 2208 274 2763 2820 28se 3108 3127 3179 3224 3242 
34 33 34 347 3495 3543 3590 3615 3660 3711 3736 3781 
Zee goat 388 404 $377 1 5s8s 5631 S727 5747 5818 5837 s9le 
) 
SAVSN O02012 13018 1658# 2067 3040 
Sc 100000 100Se 1695 1698 2ess 4032 5065 5067 5610 5739 
SCOP1 = 104413 81328 
SCRC 052730 78SSe 7862% 
SCYL 052720 78518 7858* 7935 
SC1 = 000100 10938 
Sc10 = 001000 10968 
sce = 000200 1094%8 
Sceo0 = 002000 10978 
4 = 000400 109S8 
SE CeAP pe7338 onan 4330 4338 ao5q" 76778 7863 
SECOTR 047502 ds * 4458 4de4e 44708 44e9e 4490" 4940" 4941* SO33* SO34* Sesse S2esse S27 
4 SS07# SS46# SS47# 6340 63418 6424" 6425* 6568% 6569*% 7251 72678 
SECTR 3544 3903% 2s 39935 80228 8024% 8026 
SEECOM 72 } r 79 20 6767 
SELECT Be 12938 1 ae (Seen 1469" 1579 1595 5929 
SELTST rege 1509 15798 
RCH 4 13438 3884 
SE TOSK 276 3438 5443 S448 S464 S4S7 S461 65518 
SILOTs 1416 2 2349 2354 76838 
SKEY1 052724 78538 0 
SKEYe 052726 78548 7861s 
SKI = 11868 
SN 001742 12798 
SND1 326 139 4028 
Space 724 1926 4488 
SPACES 716 1924 1925 1929 1930 1931 B447 8 
SRO =:«117757e2 S228 
SR1 = 177574 Sees 
Ske == 177576 eeee 
SR3 = 172516 S 
sea" Soecte weet: TEEN ang 
= . 7 
cTack = 001000 S038 1387 1418 1456 1672 1678 1682 1727 1732 1737 —=s«1792 1799 1g05 
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1826 2097 2155 
323-3443 575 
4456 446, 4470 
e435 438 440 
5s S2 691 
1404 40 433 
he en ey 
1404 131 
2377 4470—s—s«#SBB 
6150 
1486 1507 1920 
7921 8131 
6288 
2648 e650" 2655 
S479 95507 = 5531 
iso2e 2942 3014 
2264 2714 S065 
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TRP 762 1444 14488 
TRIVEC= Bodars S038 


Hein Basel tet fa, 5. 7k, Gh Te, TE Th, Rt TU 
ve Ge toe ie oe Bi Be fre soe see see ee 


S448 5 S S Ss 5 
SS07# ec3es 691% 694* 781% S$87e% #6022 8857 88s9 8861 8864 8867 8870 
8872 8875 8879 8882 8884 888s 8888 8891 8895S 8898 8901 8390S 8908 


891 4 917 8922 
Sito RSS Re ie 5 
TeT1b0 S7e ay 
TST101 $4378 
TST10e 034750 S4408 
TST103 S44e8 
TST1O4% 035126 S44Se@ 
rari 162 anit 
eri Bes Eile 
TST11 = §=01101e 16818 
TST110 O35416 5456 
TST111 O3S544 54608 
TSTlle 4 54738 
TST113 7 54788 
TST114 3 SS038 
TST11S 0363 55068 
Yatiig 037000 5Se78 
TST117 037626 S6918 
TSTle O1116e 17278 
TST12e0 037662 56938 
TSTlel O40214 57808 
Tatigs 0S4O ee 8 
Tatts 1070 ® 
TSTl 1l ss 17328 
TST14 11 17378 
TST1S 11336 17418 
TST16 11524 17918 
TST17 §=©011570 17988 
rere 11 34 igoes 
4 
Tet 1 811980 igiis 
TST2ee 011744 18138 
rele? Sietie Eat 
TSTes Oi Suse O87 20978 
Tarss Y 8 
rer 4154 408 
TST 126 14S 14718 
TST30) §=—6 01 4332 e241 2277 2281s 
TST31 O14S60 ecBe 2319 23ce8s 
TST3e 015020 e3 23868 
TST33 015144 2386 2403 e409" 
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CROSS REF 
24778 


3515 


5978 


41688 


42688 
43728 


45728 
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25358 

$988 

14658 15858 16638 
80S 18118 i8i38 
S368 s2758 e$978 
38748 77% #§=©40728 
45798 446998 4814s 
S44Se S448e S4Sis 
$7818 5S87e8 

3354 5964 int] 
Re fe ig 
4833 4114 4o83 
4815 4963 5057 
$965 $974 $977 
7108 7121 7123 
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81328 
TYPOC = 104402 143 1561 1629 6023 6025 7107 7122 «7126 7128 #« 7130 8126 8131 81328 
Typos. = 194403 7336, 199581328 
T’scor” Guseve bisbe 33 
UN 906110 14588 1455e 14618 
UNIT 001774 lgegs «i4i2# 1574" ise0e 1590 = 1607# ©1609-1627 1672 1678 170417871738 
i737 A732 A? 1805 1811 + 1813 1999 2006 2016 2183 2167 2244 274 
2B4 46 b29Ssi4 SC is4IDSCiéiUD?—(siGRSC‘i‘éiSG]: OCS SS3)SSSB CHES) BdS2SsB978 
aise 3 3353, 3392 = 5283847 378828 74G 4837 S072 5189 362 
596 5 * 6091 6172 
UNITS 001754 12878 i1Sel] iS2 1574 1602 1899 1913 5983 
UNITSL 02004 12948 1413 1580 
UNLOAD O02044 13398 3330 
UNS = O4OO00 10418 
UPE = 020000 9si# 2555 e559 
USI = OO0001 9688 
use = Q00002 9698 
us4 = OO0004 9708 
UWR = OOODIO 11828 
VUF_ = 900002 11818 
vU30 = 010000 11188 
Wy ere 999100 1O1ss 2055 = 2114 2686) 2757 NBN 4869 #906 SHe2 SHES = SSID. S513 B209 
WAIT.T 043166 62758 8132 
WAT 104415 2295 e428 2709 2809 e812 2877 2880 5493 S521 8132 
wc 001706 12638 2801 2835 2869 2903 5178 5192 6050 8875 
WCE = 040000 9828 4633 4751 S160 5164 
WCF_ = OOOO4O 10328 
weRC  OS1400 4451 445844470 yg48 «= ssSO41 =s«sS2SS)—Sss«SMS7*# = SHH1* 5479 «=«SS07~—s SSH 
6348 6433 6575 #7408 76808 
wou == 000001 11068 11248 
L 052636 4090s 4057 4179% 4186 4eB0e 4287 4384* 4391 5293 77488 
WECC1  O5e416 4139% 4e2eBe 4332% 76858 98908 
WECC® 052420 4140% 42e9% 4333" 76868 8908 
WKEYI 05264 4093" 4162% 4283" 4387% 77508 
KE Ve 4O94* 4183" 4ee4* 4388% 77518 
= 004000 0388 
050410 7386s zasee 74008 = 7402# = 7404* §=— 7406 © 7H0B 7449 74S3x  7HEDH «74B9" 7502" 75194 
CHDA 043652 4739. «5151 = 64238 
WRCHDT O02060 13458 6363 
WRCHEK 002056 13448 ©6443 
¢ 043340 wee 2 
WRDATA 051066 731 lis 7829 
WRFROM 002110 jaele 2iee = eieee «2136 = BPI, Belge Beet 765 27718 2778 2822 2828% 2936 
2890 a6 129 3136* 3143 161 189% 3195 3244  3251% 3259 329 
3300% 2  3368* 3376 B 3415* 3420 3497 3503" 3511 35 3551 
3556 17, 3bes* 36 She, aebg* 3674 373g aHNe 37S) 783 a7eGe 37 
384 3849" 404 4OS1# 4103 41982 4293) #44397 94451 44 464 
447 uses 4G2R 430 45314538 48 4655 4656 4660 4667 4668 4675 
476 47? 4780 4781 4787 497 4978 4982* «= 498GES—Ss«CS'1 bs 223 Sea 
S23 S25 99 5300 5304 5403 4OS# 16 «65438 «0S ssdS443—isiSHSSCti«C*dS'SSY 
4 461 479 «5507 —«dS5S9)0sdS56O S564 600 5605 5633 S640e 5647 §749 
: S755 5762 5791 5839 Se4s* Ses2 S882 5933 5939 5946 6634 6732 
WRHEAD 052732 7747, 785648 
WRIDAT O0e0be 13468 4470 5308 S479 #«©+5S5S07 S580 S892 
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WRIFOR 002064 3478 86411 4207 4309 uy 36 5806 6729 
WRITE OSO0646 iad Xi 3438 rae 7631 7059 328 7647 7650 7903 7923 7937 7950 7362 
WRL = 10208 
WRU = 11148 11328 . 
WSECTR OS2640 4092% 4 84Y4181e 4282e 4386* 7732 77498 
WSSYNC 76788 
WSU = 41098 ieee 
WTRK 052574 34H 7378 
WWORD 0S0644 oo8 7422 7425 7429 7436 7441 744S 7S4S8 7590# 7632 7638 7644 7648 
7651 o apa 7308 es 73938 oats 7963 7974 
x 047510 4Y4Six 4W4Sse  4464e 70% 4494e 4494S# S038 S25S* S291% S479% SSO7*# SSSi# 6345s 
6429" 07# 4 72708 7305 
XE2 007 166 1505 15188 
7550 73168 
ZCODE 045330 68538 7033% 8917 
000400 0S38 
gates Bs ty eins (Sie ou 
0011 Sous + 2eSbe 270% 277% 2289% ith 234 2398% 2417% 2437% 2667# 26784 
= a ae agzis erage 199% 6203 6215 £330% 6223% 6242 6249 625S*# 6260 
SBDODAT 001126 Soke 1475s 1476 1694% 6 707% 708 1714% 1718 1753 1775# 1917# 1933 
1935 1997 1998 2010# 13% 016% 19 eOeee 202eS* 202e8* 2031 34% 2037% 
sooee sR. Se tg goes 70% soc ie 2314% 2320% 2359% * 2402 
e4Se# ge 8S* 86 49S# 14 2516 2526 es44*e 2545 
S38 79% 7% % 04 eb1i*  e26le2 3" se3e 2973 
6x # a at * ca OOS 3011*% 3016 1 3% 3028 
O#  3043% agst ane * 93993 4133% Y4eeee 43e4%"e 4Y4S1e 44458« 
4464% 44470% rent 4864% 4993# 063% j#SOES S075* 5076 1# 3 S*  S326% 
glen Bees" GeGoe Eda" Beare boas" ebVEE bio, Sager Saars Sears Sones S85 
oasae 7954s eo 7978 Boe> 8861 8867 8872 gees 8891 889s 88 8901 
S$SELL O01216 Seve 86131 8132 
SCHARC OSS146 81318 
a oss460 81318 68132 
MTAG 001100 Sets 1387 
SCM1l = Sous 
ati = 000014 Se4s 
o Sey 
= Sous 
NTLC OS6e3 81318 
SCNTLG OS62% 81318 
SCNTEU 056236 81318 
SCRL 001223 Se4s 156S 1936 6026 8131 8132 
K QS47 81318 
04141 $9968 
SENDA Oa 1408 eae sages 
SENDCT 041350 59968 
SENOMG ite es 5974 59968 
SENULL 1416 $977 59968 
SEOP Rises 442 1514 5981 s9968 
SEOPCT 041342 9368 
SERFLG 001103 Se4s 6088 8131« 8132% 
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Ss 
Sermon Dentie ee i Ca ees 
izes Ba57" gs 


9s 8898 8901 6905 


a 
TY g 
# S% * 
SESCAR 0012 © 1387 i31# 32 
SFILLc 0011 ® 8131 
SFILTS 001155 # 8131 
Sabon? boli a Pa 708 ae 1750% 


* ¥ % 
6 : : 2033s euaee 2ei8: 
Slits 6397 * 5833 6703% 67le% 6778 
oe 943% 795 7966# 979% 93857 
$GET4¥2 041372 59968 
SGTSWR OSSSSO Bi318 8132 
$HD = QO00000 re 4 
SHIOCT atte Bli3e8% 
$I 1104 Se4s s8131# 
ILLUP 057436 81328 
INTAG 001135 8 8131# 
ITEMB 001114 8 132% 
SLF 001224 4 131 8132 
SLPADR 001106 ® 1387% 1584%# #6029 6032 8131 
SLPERR 001110 Se4e 1387% 26638 2853% 4829S 4es4* 6024 
SMAIL = ##eeee U 1387. 1404 8131 8132 
SMNEW 056261 gizis 
SMSWR 056250 81318 
SMXCNT 4S04 81318 
SNULL 1154 8 81 
SNWTST= OOOO0O 14188 14S6e 14718 #14838 15848 16638 #16708 
7318 7388 g ie 38 i8ee8 969 
bGa4e a tt le ry 41le 
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